AS-1000 

o micro que cresce com voce. 





CARACTERISTICAS TECNICAS: 

• 16 K bytes de memoria iniciais 

• Expansao interna para 32 e 
48 K bytes 

• 8 K bytes de memoria EPROM 

• Microprocessador Z-80A 

• Teclado de membrana com 
a$ao mecanica positiva 

• 40 tedas e 1 54 f undoes 

• Basic e linguagem de maquina 

• Video normal ou reverso 



O Microcomputador >\S-1000 
escolha para quem esta 
iniciando na ciencia da computacao. Seus 
recursos de programacao e sua concepcao 
modular, porem, permitem que ele 
o acompanhe ate as aplicacoes mais 
sofisticadas. 

O AS-1000 ja nasce com uma biblioteca de 
milhares de programas para jogoSr 
adminlstracao domestica, aplicacoes 
comerciais e profissionais. 

O AS-1000 e fabricado com a qualidade 
EIMGEBRAS e garantido por um ano. 

Entre na era da informatica com a escolha 



• Saida para qualquer impressora 

• Manipula ate quatro cassetes 
com gera^ao de arquivo 

• Modem 

• Joystick 

• Speed File 

• Fonte de alimenta^ao 
embutida (110/220 volts) 

• Nivel de leitura de gravacao 
automatico \ 



cert a. AS-1000, o seu micro pessoal. 

Escreva-nos, sua correspondencia nao ficara sem resposta. 






ENGEBRAS 

ELETRONICA E INFORMATICA LTOA. 



Rua do Russel, 450 - 3.° andar 
cep 22210 Rio de Janeiro - RJ 
Tel.: (021) 205-4898 




Micro 



x 6 * R ACIOCIN AM - 

Acompanhe com o prof. 
Antonio Costa este interessante 
relato sobre os sistemas 
especialistas e seu poder de 
raciocinio logico e dedutivo. 
Como exemplo, um Programa 
Detetive para que seu micro 
possa demonstrar sua 
inteligencia ao desyendar o 
mist£rio de uma investigagao 
policial. 



^ SIDRA - Tiros de raio 
laser! Helicopteros 
voando! Este mes, Rudolf 
Horner Jr. ensina como voce 
pode obter efeitos especiais 
como estes utilizando recursos 
do proprio Apple. E mais: 
como registrar e recuperar 
informagoes em fita cassete 
com mais eficiencia e rapidez. 



(A CAMftREIRA 0ANHAVA POUCO) ) 

( (A BRAL.HA ROUBGU 0 COLAR) 

SE 

<A JANELA ESTAVA ABERTA) 

(0 CDLAR ERA BRILMANTE) 

U3RALHAS GDBTAM DE CP ISAS BRIL! 

( (A JANELA ESTA^A ABERTA) 

SE 

<NA0 E^STAVA CHPVENDD) 

(ESTAVA FA ZEN DO CALDR) ) 

< tESTAVA FAZEND D CALOR> 



( (09 CIOANOS ROUBARAM 0 COLAR 



<UM CIQANO ENTROU NA CASA) 

(UM CI0AKIO FOX VISTP COM □ COL 



< <A CAMAREIRA OANHAVA POUCO) 



alto-fa Unte 
6 ohms 





g'/T EM GEOMETRIA, A 
OO AREA E DO MICRO - 

Arquitetos, engenheiros, 
matematicos... voc6, usuario da 
linha TRS-80: aproveite os 
recursos deste programa de 
Heber Jorge da Silva que 
desenha e calcula a area de 20 
figuras geometricas diferentes, 
bastando que voce entre com 
as medidas necessarias. 



^ A BATALHA NAVAL - 

/ \J Viva as emoeoes desta 
verdadeira guerra de nervos e 
perspicacia contra seu micro da 
linha Sinclair. Esconda bem os , 
seus, destrua todos os navios 
de seu inimigo e seja o 
vencedor deste jogo escrito por 
Waldir Ferreira de Arruda. 



8 A ROTINA APONTA-ERROS - 

Programa de Carlos A. Diz. 

-g GROAN: OS DADOS ESTAO EM JOGO 

| \ - Programa de Jos£ Roberto Cottim. 

CORRIGINDO PROVAS NO MICRO - 

Programa de Lawrence Falconer King. 

/■% A PARA BOM INVESTIMENTO, UM 

MICRO PESSOAL BASTA - Programa de 
Armando Oscar Cavanha Filho. 

Ag\ ABRINDO ESPAQO PARA A 
£i(l LINGUAGEM DE MAQUINA - 

Programa de Jose Ricardo Flores 
Rodrigues. 

A A DOMINE O MICRO NO DOMINO - 

Programa de Everton Pereira. 
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DE AZIMUTE EM RUMO - Programa de 
Laci Mota Alves. 



E A MICRO BUG: O COMANDO M E AS 
PRINCIPAIS ROTINAS SGM - Artigo 
elaborado pela equipe do CPD MS. 

gr^ OUTRAS PALAVRAS EM FORTH - 

Artigo de Ivan Camilo da Cruz. 

w/; MANTENHA SEUS BYTES SOB 
/ O CONTROLE - Artigo de Carlos A. Diz. 

0/\ ALEM DO BASIC, ASSEMBLER, DOS 
XI I E OUTROS MISTERIOS - Programa de 



Roberto Quito de Sant’Anna. 
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MICRO SISTEMAS, maio/84 






J usto no momenta em que o mer- 
cado brasileiro comegaaadentrar 
mats claramente na discussao so- 
bre os equipamentos de 16 bits, 
32 bits, micrinhos, supermicroes 
e outros bichos, uma verdade insofismd- 
vel pode ser detectada: a micro-informd- 
tica no Brasil ainda nao constitui uma 
comunidade de usuarios que eficiente- 
mente interaja com a mdquina. Culpa- 
dos exist em por toda parte e nao se tra - 
ta, aqui, de expurgalos, visto que o re - 
medio neste caso pode acabar matando 
o paciente, mas e preciso exorcisar al- 
guns fantasmas que insistem em perma- 
necer no cendrio. 

A profusao de modelos tipo XLMWj 
33 (o “X” e experimental), compativel 
apenas consigo mesmo - alterou urn en- 
deregozinho do Apple , um parafusinho 



no TRS, um pequeno chip do Sinclair, 
resultando num “parece que e, mas nao 
e, vulgo Denorex ” — acaba causando ta- 
manha confusao para os usuarios que 
desencoraja qualquer tentativa de desen- 
volvimento real de um software de qua - 
Made. 

NSo fosse is to suficiente, basta o 
acontecimento de uma feira ou uma ex- 
posigao de microcomput adores, e logo 
uma dezena de novos modelos sdo lan- 
gados na praga, alguns chegando ao cu- 
mulo de serem langados mais de uma 
vez. Sao os chamados “micro feira ”, 
cujas trajetorias, do langamento ao apa- 
recimento efetivo nas lojas, sao muitas 
vezes longas a ponto deles se perderem 
no caminho. O consumidor em poten- 
cial, que fa tinha duvidas quanto ao equi- 
pamento a escolher,fica ainda mais con- 
fuso. 



Estamos passando por uma fase de 
mistificagao do hardware, que sem du- 
vida nos levard a um beco sem saida. 
Exemplos como Visicalc, Wordstar, etc., 
dernonstram que o lampefo que cria o 
software independe do equipamento, 
pois a utilizagao e muito mais importan- 
te que o meio. De fato, hoje existem 
versoes para todos os tipos de equipa- 
mentos dos melhores softwares criados 
internacionalmente nos ultimos anos. O 
que precisamos sdo mecanismos e incen- 
tives que preservem a atividade CRIA TI- 
VA, nao importando que ela incida so- 
bre um IBM PC, um Apple, TRS, ou 
Sinclair. 






Aten^ao leitores: 
MICRO SISTEMAS 
mudou! 



Estamos atendendo agora nos seguintes enderepos: 

RIO DE JANEIRO - Av. Presidente Wilson, 165/grupo 1210, Centro, RJ, CEP 20030 - 
tels.: (021) 262-5259, 262-6437 e 262-6306. 

SAO PAULO - Rua Oliveira Dias, 153, Jardim Paulista, SP, CEP 01433 - 
tels.: (011) 853-7758, 881-5668 e 853-3800. 



/Micro 
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E a Memphis 
respondejunto. 



^S U ^ e f l Datal ‘ fe , se ™P re , tgm Sao os mais vendidos no mundo e seus Disquetes Datalife num local onde 

um modelo exato para cada tipo de produzidos pela empresa que mais eles tem pai, mile residencia conhecida 

necessidade, seja ela para controles e investe em pesquisa e desenvolvimento e garantia de 5 anos 

e ' pessoais <Je Produtos, lider mundial na tecnologia A Memphis tem estoques para entrega 

e protissionais ou lazer com de midia magnetica flexivel. imediata 

microcomputador. Tudo isso estd a seu dispor na 

H] ] j§j ,, , seguranga de que voce pode compr ar \ferbafim 

REVENDEDORES E FABRICANTES INTERESSADOS: (01 1) 262-5332 

Bto?£cj' 151 9^fels^02 iSq a* 1 ' ( a° ! i ~ Te l ex - / 0I *) 34545 - FILIAL RIO DE JANEIRO: Praia do Flamengo, 66 

jr* ) ' J469 e (021) 205-3849 - MATRIZ: Av. Angelica, 35 - Sao Paulo - Tel. (01 1) 826-9500 - REPRESENTANTES • RA - SalvaHnr 
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Sao os mais vendidos no mundo e 
produzidos pela empresa que mais 
investe em pesquisa e desenvolvimento 
de produtos, lider mundial na tecnologia 
de midia magnetica flexivel. 

Tudo isso estd a seu dispor na 
Memphis. 

A Memphis responde, com a 
seguranga de que voc$ pode comprar 



Datalife tem 
resposta para tudo. 




O sorteado deste mes, que receberS uma 
assinaturade um ano de MICRO SI STEM AS, 
6 Jos4 Minerva deSao Paulo. 



pais temos interesse numa informagao veicu- 
lada em MICRO SISTEMAS nP 25, SegSo 
Bits (Strings). 

Joey mar Gera Ido Lyra 
Gerente Comercial da Digicap 

O IBAM fica no Largo do IBAM, nP 1, 
Humaitti, Rio de Janeiro — RJ, CEP 22282. 
E o telefone do Setor de Promogao 6 (021) 
266-6622 R. 292. 




ARQUIVAR DESENHOS 





CURSOS 
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Tenho uma dtivida com relagao ao pro- 
grama "Desenhe no vfdeo", publicado em 
MS nP 27: tentei, comoo programa sugeria, 
arquivar o desenho usando a rotina "Arqui- 
ve no vfdeo”, publicada em MS nP 23, na 
Segao Dicas. Mas dessa forma s6 seria poss I'- 
ve! arquivar um tinico desenho ou tela. En- 
xSo, tentei passar o desenho depois de arqui- 
vado para uma variivel, aproveitando a Dice 
"Inicializando varidveis", de MS nP 26, mas 
n£o sei porque isto n§fo foi possi'vel. 

Gostaria que voces publicassem uma roti- 
na capaz de arquivar a imagem emumavarid- 
vel qualquer, de forma que fosse possi’vel ar- 
quivar vdrios desenhos em varidveis distintas. 
Se possfvet, gostaria que me informassem 
qual o enderego onde 6 arquivada a imagem 
naquela rotina "Arquive no vfdeo". 

Marcelo Batista Silveira 
Osasco — SP 

N6s tambdm, Marcelo, go star I am os de 
ter esta rotina que arquivessevfiriosdesenhos 
em variiveis. Seria 6timo, mas infelizmente 
nio temos. Talvez algum leitor \& a ten ha de- 
senvolvido e nos mande, quem sabe? Vamos 
torcerque sim. Com relagao ao enderego on- 
de 4 arquivada a imagem na rotina "Arquive 
no vfdeo", a note af: 6 a partir de 31000. 



EXPANS&0 NO CP-200 



Recentemente comprei um CP-200 e jd 
estou com vontade de aumentar sua capaci- 
dade de memiria para mats de 16 K, se pos- 
si'vel. Como sei que poderei contar com a 
ajuda de vocis, gostaria que me indicassem 
o melhor meio para fazer esta expansSb, 
pois no manual que acompanha o micro 
n5o existem muitas informagoes. 

Lufs Paulo Neri de Souza 
Mutufpe-BA 

Como 6 de praxe, Lufs Paulo, mandamos 
sua carta para a Pro16gica, a esta respondeu 
o seguinte: 

"Com relagao 4 consulta do leitor Lufs Pau- 
lo, gostarfamos de eselarecer-lhe que a me- 
mOria do CP 200 6 de 16 K da RAM. At6 o 
presente momerrto, nSo estamos cogitando 
em oferecer uma expansSo de membria para 
o CP 200, o que nao signifies que isto nao 
venha a acontecer no momento correto. 

Se o leitor conhecer o microprocessador 
Z80A, terd a possibilidade de aumentar a 
capacidade de mem6ria do micro, uma vaz 
que, atravds da safda lateral do CP 200, tem- 
se acesso aos sinais deste microprocessador". 
Eng. Dan Guinsburg 

Gerente de Produtos-Computadores Pessoais 
da Prolbgica 



IBAM 







Escrevo-thes para, antes de tudo, parabe- 
nizd-los pelo excelente trabalho que vem 
sendo feito por voces. Gostaria tambdm de 
apoiar a iddia do leitor Jorge Francisco Sala- 
zar, de Porto Alegre, que foi publicada na 
Segaio Cartas de MS nP 27: criar uma segao 
com tabelas de pregos dos micros e de video- 
games. 

Gostaria ainda que voces publicassem 
ondese pode fazer bonscursos decomputa- 
tpao nas principals capitals brasiieiras. 

Denise Hemerly 
Rio de Janeiro — RJ 

Antes de mats nada, Denise, a equipe 
agradece os elogios: muito obrigada e barn- 
vinda 4 MS. As suas sugestoes foram anota- 
das, mas com referdneia aos Cursas, jti publl- 
camos uma extensa matdria sobre este assun- 
to em MS nP 18, pdgina 60. Di uma aspiada. 
VocS tambdm pode ler nos nOmeros de MI- 
CRO SISTEMAS a Segao Cursos, bam como 
observer os diversos anCincios sobre cursos 
veiculados em nossa revista, ok? 



DICAS PARA 0 DGT-100 



Tenho um DGT-100, mas estou com dois 
problemas: 

1 ? — como desativar o botefo RESET, pois 
a tecla BREAK nSTo tem mistdrios; 

29 — como, atravds de um programa em lin- 
guagem de mdquina, conseguir chamar uma 
rotina, ou sub-rotina, em BASIC. 

No primeiro caso, fiquei animado quan- 
do It, na pdgina 18 de MS nP 26, o artigo 
"Programas trancados e seladOs", mas de- 
cepcionei-me, pois o artigo era para micros 
compatfveis com o Apple. Deve haver al- 
gum meio de desativar o RESET no Digitus; 
tudo indica que seja utilizada a regiao de 
comunicagSo, mas ndb consigo descobrir 
como. 

O meu programa DGEDAS (Editor As- 
sembler da Digitus) desativa o RESET. Tele- 
fonei para a Digitus e o Sr. Alexandre .disse- 
me que a tecta nSo 6 desativada. Nao acredi- 
to, pois o programa DGEDAS, da pr6pria 
Digitus, desativa-o. Serd que voeds podem 
me dar uma dice? 

No segundo caso, quero fazer a chamada, 
por um programa em LM, de uma rotina em 
BASIC. 0 livro "Microsoft BASIC decoded 
and other mysteries”, na pdgina 30, quando 
trata de BASIC Functions , apresenta a sub- 
rotina JP 1EB1-GOSUB como "capaz de fa- 
zer com que uma sub-rotina em BASIC seja 
chamada por uma sub-rotina em Assembler", 
e dd, inclusive, um exemplo com a fungao 
TRON do BASIC. Apesar dos meus esfor- 1 
gos, n So consegui que funcionasse. Jd segui 
todos os passos dados no programa-exemplo 
e nao consigo rodd-lo, pois sempre apresenta 
erro. Como posso fazer isso? 

Josd Eduardo de Oliveira e Cruz 
Rio de Janeiro- RJ 





Solicitamos o enderego do Instituto Bra- 
sileiro de Administragdo Municipal — IBAM, 



Infelizmente, Josd Eduardo, nao pode- 
mos ajudd-fo. Mas talvez algum leitor mais 



curioso e proprietdrio de um DGT-100 te- 
nha como auxilid-lo. Vamos fazer coro com 
o seu pedido, e esperarque algum leitor pos- 
sa colaborar com o seu problema. 



MS AGRADECE 



O mundo dos micros d simplesmente fa- 
buloso, o potencial inerente a esses "bichi- 
nhos" virou totalmente a minha cabega. 

(...) De todas as revistas especial izadas 
que pesquisei, essa foi a unica a chamar mi- 
nha atengao; portanto, quero parabenizar os 
responsdveis e incentivd-los a manter o ntvel, 
que se tem mostrado excelente. 

Atravds da Segao BITS, tomei conheci- 
mento de um curso de BASIC que pode ser 
ministrado, ou seja, desenvolvido pelo inte- 
ressado em sua prbpria residdneia. Nem 6 
preciso dizer que jd mandei um comunicado 
a SDI — System Design Ltda., solicitando as 
devidas informagoes. Desde jd agradego aos 
integrantes de MICRO SISTEMAS o aprego- 
que tem por aqueles que estaQ tomando co- 
nhecimento dessa maravilhosa drea de atua- 
gdo. 

Mostrei a revista a alguns amigos que 
tambdm gostam da matdria e fiquei muito 
feliz com o pronunciamento de cada um de- 
les, uma vez que se mostraram favordveis ao 
conteudo de MICRO SISTEMAS. Os meus 
parabdns a todos voces, e continuem se es- 
forgando para que a circulagao desse peri6- 
dico se mantenha na ativa. Respeito plena- 
mente a opiniao do nosso caro amigo lei- 
tor Mdrio Gomes da Silva, que citou as se- 
guintes palavras na Segao Cartas: "Uma re- 
vista de alta competdncia deve ser sempre 
elogiada e fatada. Como todos dizem, d uma 
revista MADE IN BRAZIL". 

Valmir Rodrigues da Silva 
S5o Bernardo do Campo-SP 

Gostaria de parabenizd-los pela MICRO 
SISTEMAS nP 28, de janeiro de 84, que 
realmente trouxe programas muito interes- 
santes para todos os tipos de microcompu- 
tadores. Gostaria tambdm de parabenizar o 
autor do programa "Pescaria em dguas 
eletronicas", o Sr. Nelson Hisashi Tamura, 
que, usando a criatividade e sua experiencia, 
fez um 6timo programa. Achei tambdm 
muito bom o programa "Aventuras em Serra 
Pelada”, s6 que nfo me animei a digitd-lo. 
Parabdns e que a revista MICRO SISTEMAS 
se desenvolva por muitos e muitos anos. 
Henrique A. Vianna 
Pelotas — RS 

Sou ha alguns meses proprietdrio de um 
TK-85, o qual comprei para obter auxflio no 
cdlculo estrutural em Engenharia Civil. MS 
conseguiu despir por completo a impressdte 
sdria e antipdticaqueeu tinha dos microcom- 
putadores pessoais, conduzindo-me ao fasci- 
nante mundo dos jogos... Envio-lhes meus 
sinceros parabdns e que continuem a publi- 
can aplicativos e jogos (principalmente em 
Assembler) para a linha Sinclair. 

Dilson Lara Junior 

Sao Josd dos Campos — SP 

Parabenizamos esta conceituada revista 
pela decis§o de incluir uma Seg§o dedicada 
is aplicagdes do micro no radioamadorismo. 
Sentimo-nos duptamente contentes: pela 
id£ia e pela escolha do r^spons^vel, Roberto 
Quito de Sant'Anna, PY 1 DWM, nosso 
companheiro. Awards Manager e Membro 
do Conselho Deliberativo do CWRJ (...)• 
Ronaldo Curi Gismondi 
Secret4rio Geral do CWRJ 
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Como usuario de micros da linha Sinclair 
h£ doisanos, parabenizo MICRO SISTEMAS 
por dedicar tantas p^ginas a este sistema, 
qua nao s6 tem o maior numero de aficio- 
nados entre todos os outros, como 6 o mais 
acessfvel, real Cstico e possui um uni verso 
muito maior (tanto em software quanto em 
hardware). 

Adriano Giusfredi de A. Botelho 
Amparo — SP 



SUGESTOES 



Sou leitor de MICRO SISTEMAS e acho 
que 4 a revista mais completa sobre compu- 
tadores do Brasil. Gostaria de sugerir que vo- 
ces fizessem um cursode BASIC sum de As- 
sembler especialmente para criangas. 

Gostaria tamb4m que voc4s fizessem to- 
do m4s a avatiagao de um micro, e ainda que 
a cada seis meses publicassem uma tabela 
com os principal micros e seus pregos. 

Jorge Pablo Z. Rivera 
Salvador — BA 

Quero sugerir a publicageio de um Moni- 
tor Assembler {do tipo que foi publicado em 
MS nP 23) para as linhas TRS-80 e Apple. 
Gostaria tamb4m que voltassem a publicar 
artigos e programas para a TI-59. 

Sugiro tamb4m que publiquem uma repor- 
tagem sobre o TK-2000 Color, com todas as 
suas caracterfsticas: o microprocessador usa- 
do, o sistema operacional, quais perif4ricos 
que aceita e onde podem ser encontrados, se 
existem programas em cartuchos ROM... 
Tudo, enfim, sobre este equipamento. 

Miguel Angelo Henzo 
Sao Paulo — SP 

Visando ao aperfeigoamento e engrande- 
cimento da revista, gostaria defazera seguin- 
te sugestao: v4rias revistas de automdveis 
possuem uma segSo sobre pregos de vefculos, 
Que tal se MS tivesse tamb4m uma segao pa- 
recida, onde encontrarfamos pregos e outras 
caracterfsticas dos micros nacionais? AsegSo 
poderia chamar-se "Mercado dos Milos''. 
Marco Tulio de O. Valente 
Vigosa — MG 

Gostaria que a revista colocasse uma Se- 
^ao Dicas s6 para equipamentos da linha 
Sinclair, pois n6s, os u$u4rio$ destes equipa- 
mentos, sentimos muito a falta de publica- 
gSes reaimente Citeis, principaimente no sen- 
tido de aprender a programar em linguagem 
de mdquina. E voces poderiam, na medida 
do possfvel, colocar tamb4m na revista um 
curso em linguagem de m4quina para equi- 
pamentos da linha Sinclair, assim como foi 
feito com o curso de Assembler. 

Edison Bueno da Silva 
Jundiaf — SP 

Nao abusando da boa vontade com a qual 
Vs. Sas. tem atendido aos seus leitores, gos- 
taria, se possfvel, de ver publicados pro- 
gramas em BASIC na 4rea contibil, como: 
langamentos cont4beis, contas a receber e a 
psgar, depreciagQes, balancete, balangos etc. 
Oivo Machado dos Santos 
Sorocaba — SP 

Se possfvel, coloquem juntamente com o 
nome dos autores dos programas os respecti- 
vos enderegos e telefones para um maior e 
mais r&pido esclarecimento de supostas du- 
vidas existentes nos programas que eles edi- 
taram. 

Eduardo Lazarin Marques 
Sao Paulo — SP 



Sugiro a publicagao de programas aplica- 
tivos compatfveis com o TK-85. 

Murillo E. Arizi 
Porto Alegre — RS 

Fui a uma banca de jornais procurer al- 
guma coisa sobre microcomputadores. 0 jor- 
naleiro me ofereceu cerca de sete revistas, 
vistoriei todas e selecionei a melhor: era a 
MICRO SISTEMAS, os artigos publicados 
eram exatamente o que eu procurava. Para- 
benizo todos os produtores desta revista, 
uma publicag£o sensacionat. Desejava apenas 
que voces publicassem mais programas para 
computadores da Linha Sinclair. 

Marcelo Thomaz 
Santo Andr4 — SP 

Gostaria de sugerir que publicassem o 
Micro Mercado (tanto para micros quanto 
para impressoras e outros perif6ricos) por 
bimestre ou trimestre. Acho tamb£m que ta- 
belas de fungoes de vdrias linguagens seriam 
de grande utilidade para os principiantes. E, 
finatizando, sugiro tamb4m a publicag£o (bi- 
mestrai ou trimestralmente) de todos os pro- 
gramas langados no mercado. 

Nelson Junzi Nagamine 
Embu - SP 

Acho que voces poderiam criar uma Se- 
gao voltada para os micros compatfveis com 
o TRS-80, pois, proprietdrio que sou de um 
DGT-100, fiquei com "ciumes” do Apple 
por causa da Segao Sidra (muito bem feita 
pelo Sr. Horner). 

Robinson S. Pereira 
Rio de Janeiro — RJ 

Solicitaria aos caros amigos que,quando 
da publicagdo de um programs, fizessem a 
necessdria explicagao sobre como se efetua 
o seu funcionamento (os iniciantes, como 
eu.ficam sem opgSo). 

Jos4 Minerva 

Sao Bernardo do Campo — SP 

Descobri que MICRO SISTEMAS era a 
revista de que precisava para o meu micro. 
Com ela jd rodei vdrios programas qua me 
ensinaram muitas coisas. Gostaria, entretan- 
to, de dar uma sugestdo: publiquem um cur- 
so de linguagem de mdquina para a linha 
Sinclair. 

Silvio Ferraz 
Piracicaba — SP 

Gostaria que fosse f undado um Clube de 
Software pela MS para trocas de iddias, co- 
nhecimentos e programas. Acho tambdm 
que um curso de BASIC ministrado por vo- 
ces seria interessante. 

Wander M. Martins 
Itajubd — MG 

Possuo um micro VIC-20, e para encon- 
trar artigos sobre ele 4 preciso comprar re- 
vistas importadas. Por isso, fago uma suges- 
tao: que em sua revista seja publicada uma 
pdgina destinada a micros importados co- 
mo o meu. Acredito que a vendagem aumen- 
taria muito, pois hd um grande ntimero de 
pessoas que possuem micros importados. 

Entendo que sua revista procure fortale- 
cer a industria nacional, pordm acho que o 
dinheiro que se gasta comprando revistas 
importadas poderia reverter para o mercado 
nacional. h 

Marcos Andrd O. Parai'so 
Rio de Janeiro-RJ 

Envie suas sugestdes para MICRO 
SISTEMAS. Elas serao anotadas em nossa 
pauta e procuraremos, na medida do 
posslvel, viabilizd-las. 



L ANCAW)ENTO 

nacional 




Colabloc - 1? coladora nacional com 
tempo total de operacao maximo de 
30 segundos. 

Produto de mesa, compacto, simples e 
seguro, ideal para escritorios que nao 
exijam sistemas complexos de 
encadernaqao. 

Perfeito para atender £s necessidades de 
usuarios de computadores e graficas, 
cujo volume de trabalho de 
encadernacao n§o seja grande. 
Executa um trabalho limpo por n3o 
necessitar de contato manual com a cola. 
Nao exige instalaqoes especiais, sendo 
apenas necessario uma tomada 
rnonofasica de 1 10 volts 50/60 Hertz. - 



lauranti 




EQUIPAMENTOS PARA PROCESSAMENTO 
DE DADOS LTDA. 

Matriz: Rua Theodureto Souto, 308 - Camfauci - CEP: 01539 
PABX: 27 0-8244 - Telex: (011) 36305 - S8o Paulo - SP 

REPRESENTANTES TECNICOS E COMERC1A1S 
EMTODO O BRASIL. 



Se 6 diffci! evitd-los, vamos detect£-los\ E para facilitara tarefa apresentamos 
uma rotina que local iza os erros de programapao no Apple e compat/'veis 



A rotina aponta-erros 



Carlos Alberto Diz 



O maior trabalho na confec?So de urn programa nSo 
estd em escreve-lo, mas sim em conseguir rodd-lo em 
sua totalidade sem erros! Qualquer pessoa que tenha 
se proposto a escrever algo mais complexo do que 
um simples loop para imprimir os di'gitos de 0 a 9 certamente 
jd descobriu esta grande verdade. Segundo a famosa lei de Mur- 
phy, sempre que puder haver um erro ele estard Id, e o corold- 
rio acrescenta que sempre haverd um erro a mais do que o es- 
perado. 

A tdcnica de depurar um programa de seus inevitdveis erros 
chama-se debugging, e adquirir habilidade nesta tarefa deve ser 
realmente o principal objetivo de qualquer um que deseje al- 
canfar nfveis de complexidade mais elevados em seus progra- 
mas. Debugar programas, como se diz em computes, 6 por ve- 
zes uma drdua a ventura, pois geralmente o erro se esconde no 
meio das linhas entre virgulas e aspas, escapando assim atd ao 
olho mais atento durante pelo menos as primeiras 1 32 revisdes 
da Ustagem. Existem, adicionalmente, dois fatores agravantes: 
1) nem todos possuem uma impressora (no Brasil um investi- 
mento de porte considerdvel) para listar o programa no papel 
e fadlitar um pouco a humilhante busca do malfadado erro. 
Nao possuindo tal instrumento, o infeliz programador ndo tern 
nenhuma altemativa senSo passar horas olhando para o video 
atd encontrd-lo, fi.car estrdbico ou desistir; 

2) muitos programadores (os mais avan^ados por certo) desco- 
brem que d poss/vel obter-se alguma economia de memdria 
juntando vdrios comandos numa s6 linha, separando-os com 
como nos ensina qualquer manual de BASIC. Se 6 verdade que 
isto economiza memdria, tambdm devemos reconhecer que 
esta tecnica toma muito mais vitorioso o esfor$o do errp em 
fugir ao olho atento (no infcio, pelo menos) do programador. 

No meio disso tudo, d preciso lembrar, no entanto, que o 
interpretador sempre nos ajuda um pouco com suas rotinas de 
error-trap e mensagens que nos dizem quando ocorre um erro, 
em qua! linha e de que tipo se trata. Mesmo assim, saber em 
que linha hd um erro pode limitar o campo de busca, mas a 



men sagem sob re o tipo de erro d frequentemente ambigua ou j 

nSo faz sentido algum mesmo. Aldm disso, no caso de linhas j 

compactadas, cheias de instrufdes, o interpretador nSo diz exa- j 
tamente onde estd o erro (e ds vezes existem mais de um), o j 
que nos leva a concluir que o interpretador force pelo erro! 

- i f 

DA PROCURA AO GRANDE ACHADO 

• — — j 

Lembro-me de ter encontrado, em algum momento de mi- j 
nha vida, um interpretador de BASIC (se nao me angano num | 
HP-2000F) que, quando detectava um erro, era tdo gen til que 
colocava uma flechinha embaixo do comando errado ao listar 
a linha culpada. Lembrando-me disto, e remechendo no meu 
Apple hd algum tempo atrds, descobri alguns enderefos interes- 
santes que, ocorrendo um erro, podem ajudar a encontrd-lo. 

Os enderefos (em decimal) 218 e 219 contem, respectiva- 
mente, o byte menos significativo e o byte mais significativo 
conespondentes ao numero da linha onde existe um erro. fi 
daqui que o interpretador tira a informafSo que tSO graciosa- 
mente nos proporciona quando diz: “erro na linha tal”. E 
ainda, e isto o interpretador n£o nos revela, os endere^os 220 
e 221 (tambdm decimais) contem o endere^o do statement 
na linha que causou o erro (se este ocorreu no primeiro sta- 
tement, serd necessdrio acrescentar S a este valor), ou seja, diz 
em que parte da linha procurar. Apesar de ndo ser a coisa mais 
clara do mundo, esta informagS'o pode ser usada de vdrias for- 
mas para localizar o eno. 

Descobertos estes enderegos, e depois de muito trabalho in- 7 
grato, consegui fazer uma rotina que mais ou menos me infor- j 
mava a posi^ao de um erro na linha, mas a rotina nSo era realo- 
cdvel e continha valores que variavam em fun?£o do tamanho 
do programa ao qual estivesse pendurada. Isto fazia com que | 
cada vez que o programa tivesse de ser alterado fosse necessd- f 
rio alterar tambdm estes valores na rotina. Enfim, era tSo com- 
plicada e trabalhosa de usar que, em minha opiniffo, os beneff- 1 
cios que trazia nSo compensavam o trabalho que dava. it 
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10 ONERR GOTO 60000:EFT = 63:T = 256 

60000 E = FEEK<220)+T*FEEK(221):E = E + 5*(FEEK(E) = 0):V = PEEK<E> :POKEE,EPT:L$ = RIGHTS 
<"0000"+5TR$<PEEK<218) + T*FEEK<219>> ,5) :L = FEEK(121> + T*PEEK(122) + 49:FGR 1 = 1 
TO 5:POKE L + I,ASC<MIDS<L$,I.1)>:NEXT:LIST 00000:FOKE E,V:FOKE 216,0:RESUME 



Figura 1 



Recentemente, por£m, chegou bs minhas mffos uma rotina 
em Applesoft — cujo autor desconhe9o — que 6 um verdadeiro 
ovo de Colombo, pois traz uma solu§So muito engenhosa para 
a utilizagSo da informa^o que existe naqueles endere90s que 
mencionei. fi tamb&n um 6timo exemplo de cddigo auto- 
modificante, uma t^cnica capaz de arrepiar qualquer fandtico 
de programs 9#o estruturada, pois 6 realmente a antitese da 
estrutura^ffo. 

Rapidamente: cddigo auto-modificante e um cddigo que, ao 
rodar, altera um ou mais comandos nele contidos, ou seja, o 
conteudo de uma linha de programa £ alterado uma ou mais 
vezes ao rodarmos o prdprio programa. Algo muito parecido 
com levantar-se pelos la9os dos sapatos. Tal recurso, impossivel 
de ser concebido na mente organizada e rfgida dos fandticos 
da estrutura, permite fazer coisas do arco da velha, mas como 
tudo que £ potente £ tamb£m perigoso, pode, quando mal 
utilizaao, destruir programas e levar o programador despreca- 
vido a loucura. 

Outra grande vantagem da rotina 6 o fato dela ser realocSvel 
(ao contrario da que eu havia bolado), isto e, ela pode ser pendu- 
rada em qualquer lugar e em qualquer programa sem que sua 
pos^SO ou altera9oes no programa afetem seu funcionamento 
(da rotina). Em outras palavras: a rotina n£o cont£m endere- 



90s implicitos ou explfcitos em valores absolutos e sim somen- 
te em valores^elativos . 



Tudo que voc£s precisam fazer £ digitar o cddigo em seus | 
micros (somente Apple compativeis, por enquanto) na exata 1 
forma como estd listado na figura 1 . Mas aten9£o; £ importante 
que a forma seja exatamente id£ntica, especialmente no que j 
conceme & linha 60000, pois de outra maneira certos valores 
precalculados de displacement poderSo perder sua va((dez. \ 
Inserindo o programs a ser debugado entre as linhas 1 0 e 
60000 e rodando-o normalmente, caso ocorra um erro voc£ j 

receberd, al£m da costumeira mensagem de erro, uma listagem f 

da linha condenada na qual ter b sido incluido um ? no come9o f 

do statement que cont£m o erro. I 

Se voce nffo gostar dos ndmeros 10 e 60000 que eu atri- | 
but bs linhas, mude-os & vontade, contanto que o seu progra- 
ma fique entre as duas. Nunca modiflque, por£m, o conteudo | 

da linha 60000, a menos que voce saiba o que estd fazendo, I 

sen So corre o risco de ver o seu programa alterado de maneira % 

imprevisfvel e incrivel! Se tamb£m nSO lhe agradar (mas vai yy J 
ser diffcil assim...) o ?, substitua-o por um ! ou um > ouoffi 



COMO USAR A ROTINA 







A ROTINA APONTA-ERROS 





PROCURE QUEM 
REAJLMENTE ENTENDE. 



58MICROMAQ 



R. Sete de Setembro, 92 - Lj. 106 
Tel.: 222*6088 * Rio de Janeiro 



POR QUE NAO TUDO EM 
UM SO LUGAR? 

Microcomputadores, Sotware, Publica^oes 
Especializadas, Cursos p Manutengao de Equipamentos. 
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. INFT * VIDE0TERM * SOFTVIDEO SW . PROGRAMMER • PROTOCARD . INTF. DISKS 

T. PRINT SATURN 1 2SK RAM. • SATURN 64K RAM. • SATURN 32K RAM • RANA QUARTFTO • Mirpnunn 
• MICROBUFFER II • MICROCONVERTER II . MICRO VOZ I, mTjRA^m .“S CARD “ 
■ A800 DISK CONT ■ MULTIFUNCTION CARD 
MICROCRAFT MICROCOMPUTADORES LTDA 

ADMINISTRATE VENDAS: AV. BRIG. FARIA LIMA, 1 .664 - 3° ANDAR - CJ 316 - CEP 0145? 

FONES (Oil) 212-6286 E 815-6723 - SAO PAULO - SP - BRAS L 




Datalife 

tem resposta para tudc 




Ele content apenas dois disquetes 
e vem lacrado. 

E o que tem dentro, voce ja conhece: 
Disquetes Datalife com certificagao 
critica, com desempenho muito alem 
das normas tradicionais, e 100% livres 
de erros. 

Disquetes Datalife - na embalagem 
normal ou no album duplo, a garantia 
total de um nome que e lider mundial em 
midia magnetica flexivel. 



Datalife apresenta seu album duplo: uma 
embalagem adequada para quern precisa 
de um ou dois disquetes agora e so vai 
precisar de outros daqui a algum tempo. 
Em vez de voce ficar comprando disquete 
solto por ai, que passa de mao em mao, 
com o album duplo voce tem toda a 
seguranga que existe. 









Groan: os dados 






estao em jogo 


/ ® $ 




Jose Roberto Cottim 







N do Vr^nn d^os.q^adapte.rfo Level II BASIC para o BASIC 
n? r £ 00 da , Sharp i Ra £l5> Shack PC 2). fiz questao de adicio- 

, , na f ° tmas exclusivas do PC- 1500 para dcixar os orgulhosos pos- 
ldores dcste computador de bolso mais orgulhosos ainda 
Vocc e o computador possuem dois dados para jogar. O programa 
comep perguntando ao jogador com quantos pontos ele gostaria que o 
jogo terminasse - qualquer valor entre 50 e 100 dara uma otima parti- 
da e ganha quern conseguir atingi-Io primciro. tm seguida, o computa- 
dor joga uma moeda para cima, sorteando quem dara intcio a partida 

podem s ? r P assa dos de urn para o outro de duas formas: 
? C maneira mais drastica. Sc em uma determinada 
l-u?p d rfm« t- d K^ ddos marcar 1, nao socles passaxao para o adversa- 

fl arffn n^rHm bem r t ? dOS OS pontos ^ ue voc5 acumulou naquela rodada 
hcarao perdrdos. E tern p, or; se os dois dados marcarcm 1, todo o scu 
placar ira a zero, alem, e claro, de vocc perder a vez (vocc podera perce- 
>..r que o numcro I toi representado por uma ccrinha triste pois e as- 
sim mesmo que voce ira se sentir). ’ ^ 

? ara ° computador escolher, na vez dele, se passara os dados para 
\oce ou se continuara a jogar, ha uma rotina a partir da linha 900. Na 



sua vez, logicamcnte, todo o seu bom sense c perspicacia sc faiao ncces- 
sarios, uma vez que o computador nao e bobo e ira atras de voce sc a 
distancia entre os dots placarcs for muito grande. Os pontos de uma ro- 
dada, portanto, so passarao a fazer parte do placar geral quando voce 
ou o computador, passar os dados para o outro espontancamcnte. 

da partlda ° v . en ccdor e premiado com uma mensagem, 
cujas letras geram uma musiquinha cibernetica especial. Logo depois o 
quma^ & lnvert,do por intermedio de uma rotina em lmguagem de ma- 

(voS^rccS°doto!!!). emPO ' diel<e IO ®° * c ,enha boa S0M 



Jost Roberto Franga Cottim estuda Engenharia de Te/ecomunicagoes 
na Universidade Federal F/uminense. Traba/ha na FOCO, firma promo- 
torn de fe/ras. ex post goes e congressos. e desen votve sistemas para mi- 
crocomputadores desde 1981. H 



Groan 

|00:-D“CLEAR :NAIT 0: RflNDOfl ;CL5 

110:A$*'7F41 65696541 7F*;8$«"7F4 l 4541514 17F":C$*"7F4145495J417F* 
15 : D$=‘ 7D 415541554 17 F" : E$=* 7 F41554955417F':F$=“7F416B416B417F* 

«. ! «--^?F?f«?rU«:'L OOM8000< ’' !,,- “ ,>01C1C1COO ‘' J » = ‘ OOJEJE 3£00- 
25. Kl- 7F7F7F7F7F7F7F Os dados passai ":N$**para n 

130.' DATA 7,11,1,11,7,-1,0 

135; RESTORE 

140: INPUT "Final ea quantos pontos ? *,H 
1 50 :P$=" Voce "[PRINT "Sorteando'jiQIspi*" co»eca*:8«RND 2 
160; IF B=2LET 8l=“£u CDieco" 

170: WAIT 25:F0R I=1TQ 5:PRINT " . " ; :NEXT I 

180: WAIT 200: PRINT C$:01** jogando“:T«0:IF fl»2THEN 300 

200: NA IT 50: OLS : F=0: D=1 : PRIKT P*;Q$;A ? T;60SUB 400:60SUB 700 

210:IF F>0NAIT 100;PRINT "•i«*;GDT0 300 

220;NAIT OsCURSQR OiPRINT "<J>oga ou <P)assa ?"• 

230: READ K: IF X=0REST0RE : READ I 

240: READ Y.Z-FQR WTO Y5TEP Z:60SUB 250:NEXT I;60T0 230 

250: C=1 18: R=I :50SUB 600 

260;S«=INKEY$ ; IF S$»""RETURN 

270: IF 8M“J*THEN 200 

280: IF flIO’P'RETURN 

295- F'l 60T0 + 21O AIT 2 °° !PRI,IT teB "' AiSOSUB 800 
300: T«0: D*2 

310: WAIT 50: F=0: PRINT "Eu";0l?B;T:6QSUB 400:60SUB 700 
320: IF F>0THEN 350 

1M!IF IPRI « ■**««■ novi,ente"[60I0 310 
isg, 0 *B+T. PRINT Vou parar agora, Tenho" : B:GGSU8 BOO 
350; PRINT HI;N4j *voce";T*0:60T0 200 



400 

410 

420 

430 

440 



450 

500 

600 

700 

710 

720 

800 

810i 

820: 

830: 

840: 

B50: 

051: 

860: 

900: 

910: 

920: 

930: 

940: 

950: 

960: 

970: 



:Q=RND 6;S»RND 6 

:Ol35:R*0;60SUB 600: C=1 45: R=S: B0SUB 600: 6PRINT 0 
i IF Q»1LET F*1:B0SUB 500 
:IF S’lLET F»F+1:B0SUB 500 

:IF F-2NAIT 0:PRINT "ZERO’: FOR I=OT0 1:BEEP 1,60-1.10,400: 
NEXT l : BEEP 1,35,600 
: RETURN 

5 BEEP 1 ,00, 100:RETURN 
: 6CURS0R C: SPRINT 8$ (R) p RETURN 
: T=T+0+S: IF F>0L£T T*0 
i IF F-2LET «<0)=0 
: RETURN 

• IF *(DXWRETURH 

iRt='A FERA aqui ganh“:S$»*ou de novo*: 

V$»P$+' ganhou - Ht’jlHs'ra sorte!!" 

NAIT 0: IF B)=NPRINT RI}S»:J=29040 

IF A>»NPRINT V$;NI:J=29104 

FOR I"OT025: BEEP t,P£EK tJ+I) ,100:NEXT I 

POKE 0,72,118,74,0,5,189,255,65,78,78,153,8 

POKE 3+12, 76, 119, 139, 6, 72, 119, 74,0, 150, 18, 154 

FOR 1*20TQ 1STEP -liCALL J:F0R K*0TO IiNEXT K:NEXT I : END 

V=B+T:IF V>«NTHEN 960 



IF W-A< 10THEN 970 
IF B>«AIET L*T/25:60T0 950 
IF V<ALET L*T/35:60T0 950 
L=T/30 

IF RND 0>LTHEN 970 
X*0:RETURN 
X=l: RETURN 



AL6ARISH0: 0 
CARACTER: 0 
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Programas 
que raciocinam 



Nosartigos Inteligencia Artificial I e li , publicados, 
respect ivamente, nos numeros 29 e 30 de MICRO SISTEMAS, abordamos a importancia 
das tecnicas de programagao de jogos para o desenvolyimento da Intel igencia 
Artificial , exemplificando com um jogo intefigente para a I inha TRS-80, Neste 
numero falaremos sobre os sistemas especia/istas, mais uma prova do 
que a Inteligencia Artificial 6 capaz. 



Antonio Costa m Andre Gurgel 



D igamos que voce queira es- das para a prospec^ao geoldgica e seu Gostarfamos de frisar que os sistemas 
crever um programa capaz bom desempenho nesta tarefa foi com- especialistas reais sao centenas de vezes 

de efetuar uma investiga$ao provado em 1980, quando ele descobriu mais complexos do que o fornecido aqui. 

policial como aquelas que importante mina de molibdenio no Esta- Nosso sistema, por exemplo, n3o conse- 

ocorrem em histdrias de detetive. Seu do de Washington. gue trabalhar com informafoes inexatas 

programa pode realizar esta tarefa racio- As aplicafoes dos sistemas especialis- ou incompletas e isto o toma inutil para 

cinando como Sherlock Holmes ou co- tas sSo inumeras. A avalia^So estdtica do atacar problemas reais. Se o leitor neces- 

mo os detetives de Agatha Christie. Belle, por exemplo, d realizada por um sita de um sistema especialista para uma 

0 raciocmio usado por Sherlock Hoi- sistema especialista. Para quern n<fo sa- aplica^ao real, aconselho-o a lerosvdrios 

mes d denominado progressive. Holmes be. Belle d um programa capaz de jogar artigos que safram na revista Artificial 

parte de fatos e vai deduzindo outros fa- xadrez quase a m'vel de mestre nacional. Intelligence sobre o assunto. 

tos atd chegar a solufSo do problema no Roger Schanck estd comercializando sis- 
qual ele estd trabalhando . Jd HerculePoi- temas especialistas capazes de ajudar as 

rot, o famoso detetive belga criado por pessoas a escrever testament os e a preen- TRANSFORME SEU 

Agatha Christie, usa o raciocmio regres- cher formuldrios de imposto de renda. A COMPUTADOR NUM DETETIVE 

sivo. Poirot parte de uma lista de hip6- GE encomendou um programa para diri- 

teses e procura reumr fatos que Ihe per- gir a manutenfao de suas locomotivas. O sistema especialista que iremos dis- 

rmtarn concluir que uma das hipdteses d Um programa conhecido como ONCA- cutir trabalha com trds Jiistas: a lis- 

verdadeira. ^ SYN d usado para fazer o acompanha- ta de hipoteses, a lista de fatos e a lista 

Um dos maiores exitos alcanyados mento de pacientes submetidos a qui- de regras. Noinfcio dainvestiga 52 o, alis- 
pela Inteligencia Artificial foi a constru- mioterapia. Em Portugal, L. Pereira e tade fatos pode estar vazia ou confer in- > 

?ao de programas que, usando raciocf- colaboradores constru iram o ORBIS, forma 96 es conhecidas de antemSo. No 

nio regressivo, conseguiram realizar tra- um programa que entende Portugues e decorrer da investiga^ao, o programa per- 

balhos em medicina, geologia, quimica, indica a melhor forma de usar recursos guntard se certas f rases sSo verdadeiras j 

engenharia de manutenfdo etc. Tais pro- naturais. Poderfamos fornecer muitos ou falsas. Dependendo da resposta do 

gramas s3o conhecidos por sistemas es- outros exemplos, mas acreditamos que usudrio, ele colocard a frase ou a nega- 

pecialistas. estes ja s3o suficientes para convencer o $£o da frase na lista de fatos. 

O primeiro sistema especialista a con- leitor da importancia dos sistemas espe- A lista de hipdteses contdm, como 

quistar o interesse do publico foi o MY- cialistas. seu nome indica, as hipdteses que o sis- 

CIN, escrito em LISP pelo mddico E. H. A flnalidade deste artigo 6 mostrar tema deseja demonstrar ou refutar. A lis- 

Shortliffe (o MYCIN 6 capaz de diagnos- como os sistemas especialistas funcio- ta de regras, da qual hd um exemplo na 

ticar doen£as infecciosas e indicar o tra- nam. Para isto, fornecemos um pequeno Listagem 1, 6 dividida em blocos denomi- 

tamento). Nenhum sistema especialista, programa capaz de realizar uma investi- nados regras. Dentrode cadaregra, a sen- 

entretanto, causou mais entusiasmo do ga^ao policial. Estudando este progra- ten^a que vem antes do condicional SE 

que o PROSPECTOR. A flnalidade des- ma, o leitor entenderd o mecanismo do d chamada conseqiiente e as sentenfas 

te programa d locahzar dreas apropria- raciocmio regressivo. que vem depois do SE sao chamadas an- 
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List 


agent 1 - 


Regra 


s e hipoteses 



Listagem 2 - BASIC 



LIST ft DE REGRfiS 



( < (A CAMAREIRA RQUBOU Q COLAR) 

SE 

(A CAMAREIRA PRECISAVA DE DlNHEIRO) 

(ERA FACIL VENDER 0 COLAR) ) 

< <A CAMAREIRA PRECISAVA DE DINHEIRQ) 

SE 

(A CAMAREIRA GASTAVA MUITO> 

(A CAMAREIRA QANHAVA POUCO) ) 

( (A BRALHA ROUBDU 0 COLAR) 

SE 

(A JANELA ESTAVA ABERTA) 

(0 COLAR ERA BRILHANTE) 

(GRALHAS GOSTAM DE CD ISAS BRILHANTES) ) 

( <A JANELA ESTAVA ABERTA) 

SE 

<NAO ESTAVA CHOVENDO) 

(ESTAVA FA2ENDD CALOR) ) 

( (ESTAVA FAZENDO CALOR) 

SE 

(ERA VERAO) ) 

( (OS CIGAN05 ROUBARAM Q COLAR) 

SE 

<UM CIGANO ENTROU NA CASA) 

(UM CIGANO FOI VISTO COM □ COLAR) > 

( (A CAMAREIRA SANHAVA POUCO) 

SE 

(O SALARIO DA CAMAREIRA ERA BAIXO) 

(A UNICA FONTE DE RENDA DA CAMAREIRA 
ERA 0 SALARIO) ) 

( <UM CIGANO ENTROU NA CASA) I 

SE 

(HAVIA RASTROS DE BQTAS NO JARDIM) 
(CIGAN05 SEMPRE U5AM BOTAS) 

(ftPENAS Cl GAN OS USAM BOTAS) ) ) 



LISTA. DE HIPOTESES 



( (A CAMAREIRA ROUBOU O COLAR) 
(OS CIGANQS ROUBARAM O COLAR) 
(A GRALHA ROUBDU D COLAR) ) 



tecedentes. Quando o consequente de 
uma regia 6 igual a uma hipdtese, a regra 
6 dita relevante para a hipdtese. 

0 algor itmo usado para estabelecer 
se uma hipdtese 6 verdadeira ou falsa 6 
denominado VERIFIQUE e estd descri- 
to no box anexo. Nds o implementamos 
em BASIC (Listagem 2), LISP (Listagem 
3) e LOGO (Listagem 4). LOGO 6 um 
dialeto do LISP usado para ensinar tu- 
nicas b&icas de Inteliglncia Artificial a 
crianfas. Podemos dizer que LOGO e 
LISP sao praticamente iguais. 

COMO USAR OS PROGRAMAS 

A primeira coisa a fazer 6 digitar o 
programa que estiver na linguagem de 
sua preferencia. Se vocd for usar o pro- 
grama em LISP no Apple II, digite antes 
a fun$ao DEF. Se vocS usar o programa 
em LISP num TRS-80 como o intdrpre- 
te da Supersoft, nao tecle a defmicao de 
DEF. 



REM SISTEMA ESPECIALISTA 
REM LINGUAGEM: BASIC 
REM COMPUTADPR: APPLE II 
REM AUTOR: ANTONIO COSTA. 

REM 

REM *********************** 
REM DESCRICAO DE VARIAVEIS 
REM *********************** 
REM 

REM FR*: F RASES. 

REM HIP: PONTEIRDS PARA HIPO 
TESES ARMAZENADAS EM FR* 

REM FT: PONTE 1RQS PARA FATOS 
ARMAZENADQS EM FR* 

REM CNSQ: PONTE I ROB PARA OS 
CONSEQUENTES ARMAZENADOS EM 
FR*. 

REM AN: NUMERO DE ANTECEDENT 
ES DA REGRA CUJO CONSEQUENTE 
EH APONTADO POR FR*. 

REM OS ANTECEDENTES SAO POS 
TOS EM FR* LOGO APOS OS CONS 
EQUENTE5. 

REM RL: PONTEIROS PARA AS RE 
GRAS RELEVANTES. 

REM ST: PILHA PARA SIMULAR R 
ECURSIVIOADE, 

REM IR: NUMERO DE FRASES. 

REM IH: NUMERO DE HIPOTESES. 

REM IT: NUMERO DE FATOS. 

REM RG: NUMERO DE REGRA5. 

REM RS: NUMERO DE REGRAS REL 
EVANTE5. 

REM *********************** 
REM == ESPECIALISTA ===== 

0 REM 

C> DIM FR* ( 100) . HIP (20) 

5 DIM FT ( I 00 ) , CNSQ ( 50 ) 

0 DIM RL(50> „ST(100) 

3 DIM AN ( 50) 

0 IR = O: IH = O: IT = O 
5 RG = 0:R6 = 0 
3 HOME 

3 PRINT ” ** SISTEMAS 

5 PRINT "ESPECIAL I STAS **“ 

3 PRINT "ESCQLHA UMA DAS ”J 
3 PRINT "PDSSIBILIDADES 
7 PRINT "ABAIXO" 

3 PRINT : PRINT 
3 PRINT "A - INICIALI ZAR” 

3 PRINT “ B - LER FATOS DO T 
ECLADO" 

3 PRINT ” LEITURA DE FAT 

OS E’ OPT AT IVA 11 
3 PRINT ” C - LER HIPOTESES 
DO TECLADO” 

3 PRINT " D - LER REGRAS DO 
TECLADO" 

3 PRINT ■■ E - LER REGRAS DO 
DISCO" 

3 PRINT ’’ F - GRAVAR REGRAS” 



1170 PRINT “ G - INVESTIGAR HIP 
0TE5ES" 

1172 PRINT " H - ESVAZIAR LISTA 
DE FATOS” 

1173 PRINT " I - ESVAZIAR LISTA 
DE HIPOTESES" 

1174 PRINT ” J - ADICIONAR NOVA 
S REGRAS" 

1176 PRINT » K - IMPRIMIR FATOS 

1177 PRINT " L - ABANDONAR PROG 
RAMA” 

11S0 GET A* 

1190 OP = ASC (A* > - 64 
1200 IF (OP < 1) OR (OP > 12) THEN 
1180 

1210 ON OP GOSUB 2000,6500,6000, 
7000,2800,2600,1240, 12000, 12 
100,7020, 12200 
1212 IF OP < 12 THEN 1040 
1215 REM ********************** 
1220 END 

1230 REM *********************** 
1232 REM ************************ 
1234 REM == PROVEUMA ====== 

1240 IF IH = 0 THEN PRINT "NAO 
TENHO HIPOTESES PARA TRABALH 
AR.": PRINT “VOCE NAO PODERI 
A ME FORNECER ALGUMAS?": GOSUB 
6000 

12SO IF RG = O THEN PRINT "NAO 
TENHO REGRAS PARA TRABALHAR. 

”: PRINT "VOCE NAO PODERIA M 
E FORNECER ALGUMAS?" : GOSUB 

7000 



1260 FOR IJ = 1 TO IH 
1270 H = HIP(IJ) : GOSUB 5000 
1280 IF T2 = 1 THEN 10 = IH 
1290 NEXT IJ 

1300 IF TZ = 0 THEN PRINT "NENH 
UMA HIPOTESE PODE SER VERIFI 
CAD A" 

1310 IF T2 => 1 THEN PRINT "A HI 
POTESE "?FR*(H);" E’ VERDADE 
IRA" 

1320 PRINT "APERTE QUALQUER TECL 
A PARA CONTINUAR” 

1330 GET A* 

1340 RETURN 

1350 REM *********************** 

1900 REM #******************** 
1950 REM R0T1NA DE INICIALIZAR 
2000 IR = 0 : I H = 0: IT = 0:rg = o: 
RS = o: PT = o 
2010 RETURN 

2015 REM *********************** 

25B0 REM ********************* 
2590 REM == SRAVA REGRAS ===== 

2600 D* = CHR* (4): REM CTRL-D 

2601 PRINT D* 

2605 PRINT D* : "OPEN REGRAS" 

2610 PRINT D*J "WRITE REGRAS" 

2615 PRINT RG: PRINT IR 
2620 FOR I = O TO IR 
2625 PRINT FR*(I> 

2630 NEXT I 

2635 FOR I = 0 TO RG 

2640 PRINT CNSQ (I): PRINT AN < 1 ) 

2645 NEXT I 

2650 PRINT D*{ "CLOSE REGRAS" 

266S RETURN 

2670 REM *********************** 
2790 REM ********************* 
2795 REM == LER REGRAS DO DISCO 
2B00 D* = CHR* (4) 

2805 PRINT D4; "OPEN REGRAS" 

2810 PRINT D* S "READ REGRAS" 

2813 INPUT RG: INPUT IR 
2B20 FOR I = O TO IR 
2325 INPUT FR* ( I ) 

2B30 NEXT I 

2835 FOR I = O TO RG 

2840 INPUT CNSQ(I): INPUT AN(I) 

2845 NEXT I 

2855 PRINT D*;"CLOSE REGRAS" 

2060 RETURN 

2870 REM *********************** 

2900 REM ********************** 
3000 REM == DESCREVE RACIDCINIO 
3010 PRINT "USANDO ft REGRA:” 

3020 PRINT FR* (CNSQ (RL(J) )> 5” SE 

3030 FOR K = I TO NA 
3040 PRINT “ "5FR*(CNSQ(RL<J) ) + 
K> ; 

3050 IF (K < NA) THEN PRINT “ E 

3060 NEXT K 
3070 PRINT 

3080 PRINT "CONSEGUI PROVAR QUE 
“ J FR* (CNSQ (RL ( J ) > > 

3090 RETURN 

3100 REM *********************** 

3900 REM **************■)(■******* 
4000 REM == INVEST IGUE ===== 

4010 PRINT "A HIPOTESE ABAIXO E’ 
VERDADEIRA? CS/N) " 

4020 F* « FR* (H) 

4030 PRINT F4 
4040 INPUT RESP* 

4050 IF RESP* = "S" THEN GOSUB 
9000: T2 = 1: RETURN 



IF RESP* = 
GOSUB 8000: 



■N" THEN T2 => 0: 
GOSUB 9000: RETURN 



4070 PRINT "POR FAVOR, RESPONDA 
S OU N" 

4080 GOTO 4000 

4100 REM *********************** 
4900 REM ********************** 
4910 REM == VERIFIQUE ===== 

5000 REM VERIFICA SE HIPOTESE E 
' VERDADEIRA: ARGUMENTQ EM H 

5010 REM RESPOSTA EM T2 
3020 F* = FR4MH): GOSUB 8500 
5030 IF T1 = 1 THEN T2 = 1 : GOTO 
5330 

5040 GOSUB 8000: GOSUB S500 
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3 - LISP 



(DEFINE <DEF (FLfl«BOfl (S> 

(PUKCftR SJ’EXPS (CONS ' LAMBDA (CDS S))) ))) 

(DEF ESPECIALISTA (HIPOS) 

(COND { (NULL HIPCS)NIU 

((VERIFIQUEfCAR HIPCS)) (CAR HIPOS)) 
(ESPECIALISTA (CDR HIPOS)) )) 

(DEF VERIFIQUEtHIPO) 

CONE < (KEK'BER HIPD FATOS)!) 

( (MEMBER (NE6 HlPO) FfiTDS) NIL) 

( ( PROVEUMA ( RELEVflNTES HIPO RE6RflS))T> 
(PRINT) (PRINT ’ (INVESTIGUE SE) } (PRIN1 HIPO) 
(INVEST I SUE) ) )) 

(DEF RELEVflNTES (HIP REGS) 

(C3ND ((NULL REGS) NIL) 

((EQUAL HIP(CAR(CflR REGS))) 

(CONS (CDR(CDR(CAR<REGS))) 

(RELEVflNTES HIP(C0R REGS)) )) 

( T t RELEVflNTES H IP (CDR REGS) ) ) ) ) 

(DEF PRDVEUKR(RLS) 

(CONE ( (NULL RLS>NIL). e 

((VERDfiDEIRflS(CflR RLS))T) 



( (PROVELMA (CDR RLS) ) ) )) 

(DEF VESDflDEIRflS(flNTEC) 

(COND ((NULL AN TEC) T) 

( ( VERIFIQUE (CAR ANTED) (VERDAD6 IRftS (CDR ANTED)) )) 

(DEF INVESTIGUEO 
PROS(VF) 

(PRINT(CHR 7)) 

(SETQ VF(GETCHR) ) 

(CCND ((EQUAL VF ’V) (PRINT ’VERDflDEIRfl) 

(SETQ FfiTDS (CONS HIPO FATOS) ) (RETURN T)) 

((EQUAL VF ’F) (PRINT ’FALSA) 

(SETO FftTOS ICONS INEG HIPOS) FATDS)) (RETURN NIL)) 

(T (PRINT ’(RESPQNDA APENftS CON V/F) ) (INVESTISUE)) ))) 

(DEF NEG(H) 

(COND ((EQUAL (CAR H) ’ NEGACAO-DE:MCDR H) ) 

IT (CONS ’ NEGACAD-DE: H) ) )) 

(DEF «E«8ER(E L) 

(COND ((NULL L)NIL) 

((EQUAL E(CAR L))T) 

(T (MEMBER EICDR L))) )) 

(DEF LISTAFftTOS(FATQS) 

(COND ( (NULL FATOS)) 

((PRINT (CAR FATOS)) 

(LISTAFATOS(CDR FRTOS) ) ) )) 



16 



MICRO SISTEMAS, maio/84 








10092 IF LEN <BU*) > 1 THEN BU* 

= RIGHT* <BU*, LEN ( BU * ) - 
1): GOTO 10100 

10100 IF < ftSC <CH*> < 33) THEN 
RETURN 

10105 IF CH* = " . “ THEN BU* = CH 
* + BU*: RETURN 
10110 WR* = WR* +- CH* 

10120 IF LEN < BU* ) = 0 THEN RETURN 
10130 GOTO 10080 

10200 REM ********************** 
10205 REM ********* *******#■*■*.*' 

10210 REM ANALISfiDOR SINTATICO 
UOOO FS* = 

11010 GOGUB 10000 

11015 IF WR* = “SE" OR WR* = *‘E" 

THEN GOTO 11O10 
11020 IF WR* = THEN RETURN 
11025 FS* =■ WR* 

11030 IF WR* = THEN RETURN 

11040 GOSUB 10000 

11050 IF WR* = QR WR* =3 "SE" OR 
WR* = “E" THEN RETURN 
11060 IF WR* = THEN BU* = 

" + BU*: RETURN 

11070 FS* = FS* + ••■■+ WR* 

1 1 080 GOTO 11040 

11 too REM *********************** 

llllO REM ##****«■****#**##**** 

12000 REM ESVflZIA LISTA DE FATQ 
S 

12010 IT = O 
12020 RETURN 

12030 REIT ********************** 

12040 REM -I******************** 

12100 REM ESVAZIA LISTA DE HIPO 
TESES 

12110 IH <* 0 
12115 RETURN 

12150 REM ***#■****#*****•*■*■*•***■.*.* 

12200 REM ****■*•*•»*•*■*•*****#.***.** 

12210 REM === LISTAFATOS ====== 

12220 FOR I = 1 TO IT 
12230 PRINT FR* (FT ( 1 ) ) 

12240 NEXT I 

12245 PRINT "APERTE OUALQUER TEC 
LA PARA CONTINUAR" 

12246 GET A* 

1 2250 RETURN 

12260 REIT if******************** 



0 programa BASIC pode ser usado 
sem modificafoes no Apple e, com pe- 
quenas modificagoes, no TRS-80 e no 
Sinclair. A primeira destas modificagoes 
6 substituir os comandos GET por co- 
mandos INKEY S . Assim, o comando 
GET AS da linha 1180 deve ser substi- 
tuido por 

1180 A $ = I N K E Y $ : IF 

A$ = " " THEN 1180 

As sub-rotinas 2600 e 2800 s§o usa- 
das, respectivamente, para gravar regras 
em disco e ler regras do disco. O que a 
sub-rotina 2600 faz e simplesmente gra- 
var as variaveis RG e IR e as matrizes 
FRS, CNSQ e AN no disco. Ja a rotina 
2800 recupera estas mesmas matrizes e 
variaveis. Ora, comandos de leitura e gra- 
vagao variam enormemente de computa- 
dor para computador. Isto significa que, 
se seu computador nSo for Apple, voce 
deve reescrever estas duas sub-rotinas. 

Apos ter digitado o programa, voce 
deve introduzir as hipoteses e regras no 
computador. Se voce estiver usando LISP, 
tecle (SETQ HIPOTESES (READ)) e 
em seguida tecle as treshipdteses daLfa- 
tagem 1. Se voce estiver usando LOGO, 
tecle MAKE “HIPOTESES e em segui- 




Listagem 4 • LOGO 



TO ESPECIALISTA .-HIPOTESES 
IF : HIPOTESES = C3 OUTPUT ,,f HIPOTESES FftLSflS’ 

IF VERIFIOUE FIRST HIPOTESES OUTPUT FIRST sHIPOTESES 
OUTPUT ESPECIfiLISTft BUTFIRST jHIPOTESES 
END 

TO VERIFIQUE :HIPO 
IF MEMBER :HIPO ! FflTOS OUTPUT "TRUE 
IF MEMBER < NEG sHIPO ) :FATGS OUTPUT “FALSE 
IF PRQVEUMA ( RELEVANTES ;HIPO i REGRAS ) OUTPUT “TRUE 
CLEftRINPUT PRINT " 

( PRINT 1,5 INVESTISUE SE ! jHIPO ) 

OUTPUT INVESTISUE :HIPG 
END 

TO RELEVflNTES sHIP :REGS 
IF :RESS = t] OUTPUT D 

IF :HIP = FIRST FIRST s REGS GP FPUT BF BE FIRST :RE3S RELEVANTES :HIP BF s REGS 
OUTPUT RELEVflNTES :HIP BUTFIRST -REGS 
END 

TO PROVEUMfl : RLS 
IF ;RLS * C3 OUTPUT "FALSE 
IF VERDfiDEIRflS FIRST : RLS OUTPUT "TRUE 
OUTPUT PROVEUMA BUTFIRST {RLE 
END 

TO VERDfiDEIRflS :HIPS 
IF .-HIPS = i: 'OUTPUT “TRUE 

IF VERIFIQUE FIRST :HIPS OUTPUT VERDfiDEIRflS? BUTFIRST HIPS 
OUTPUT "FALSE 
END 

TO INVESTISUE HIP 
PRINT 1 CHAR 7 
MAKE "VF READCHARAC T ER 

IF :VF = “V PRINT "VERDADEIRft MAKE “FflTOS FPUT HIP .-FflTOS OUTPUT "TRUE 
IF :VF = "F PRINT "FfllSA MAKE "FftTOS FPUT t NES HIP > : FflTOS OUTPUT “FftLSE 
PRINT 1 [RESPONDA ARENAS COM V/r;l 
OUTPUT INVESTISUE HIP 
END 

TO NEG H 

IF FIRST H = "NEGflCAO-DE: OUTPUT BUTFIRST H 
OUTPUT SENTENCE "NEGACAO-DE; H 
END 

TO MEMBER :E Su 
IF ;L = C3 OUTPUT “FALSE 
IF :E = FIRST :L OUTPUT "TRUE 
OUTPUT MEMBER :E BUTFIRST :L 
END 

TO LISTAFATOS : FflTOS 
IF :rfl?CS = l] S r QP 
PRINT FIRST -.FflTOS 
LISTflFfiTOS BUTFIRST : FflTOS 
END 
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PROGRAMAS QUE RACIOCINAM 



O algoritmo VERIFIQUE 



. Passo 1 — Examine se a hipotese esta na lista de fatos. Se e stiver, ela e 
verdadeira pois, como disse Arist6teles, contra fatos nao ha argumentos. 

. Passo 2 — Examine se a negaijao da hipotese esta na lista de fatos. Se estiver, 
a hipdtese e falsa. 

. Passo 3 — Construa a lista de todas as regras cujos conseqxientes sejam iguais 
d hipotese. Estas regras, conforme vimos, sSo relevantes para demonstrar a 
veracidade de uma hipotese. 

. Passo 4 — Entre as regras relevantes, tente encontrar uma cujos antecedentes 
sejam todos verdadeiros. Se voce conseguir, a hipotese 6 verdadeira. E como 
demonstrar que todos os antecedentes de uma regra relevante sao 
verdadeiros? Simple smente usando o algoritmo VERIFIQUE! 

. Passo 5 — Se nao houver nenhuma regra relevante n5o sera possivel concluir 
pela veracidade ou falsidade da hipdtese usando processos dedutivos. Neste 
caso, o sistema espccialista deve pedir ao usuario que investigue se a hipdtese 
£ verdadeira ou falsa. Aqui ele se assemelha ao detetive Nero Wolf que, por 
ser muito gordo, nSo podia sair de casa e pedia a seu assistente que 
investigasse tudo quanto n£o era possivel deduzir. 



da entre com as hipdtesesda Listageml, 
substitidndo os parenteses redondos por 
parenteses quadrados. A introdufao das 
regras- e andloga: em LISP, tecle (SETQ 
REGRAS (READ)), seguido das regras 
da Listagem 1; em LOGO, tecle MAKE 
“REGRA, seguido das regras da Listagem 

O programa BASIC e dirigido por um 
menu, Tecle RUN e o menu ser-lhe-d apre- 
sentado. Escolha a op 5 §o C e o progra- 
ma lhe pedird uma hipotese. Tecle a pri- 
meira das hipdteses da Listageml sem os 
parenteses e sem qualquer marca de pon- 
tuafao. 0 programa perguntara se voce 
quer ler outra hipdtese. Responda S e 
tecle a hipdtese seguinte. Apos teclaras 
tres hipdteses, pressione N e o menu se- 
rd recolocado na tela. Escolha a op?ao 
Deo programa pedird uma regra. Come- 
ce a entrar com as regras da Listageml 
sem os parenteses e obedecendo ds se- 
guintes restricoes: 

l—o consequente deve ser se par ado 
dos antecedentes por SE; 

2 — os antecedentes devem ser separa- 
dos um do outro por E; 

3 — toda regra deve terminarcom ponto. 
A terceira regra, por exemplo, deve ser 
teclada assim: 

A GRALHA ROUBOU 0 
COLAR SE A OANELA 
ESTAVA ABERTA E 0 
COLAR ERA 
BRILHANTE E 
GRALHAS GOSTAH DE 
COISAS BRILHANTES. 

Para que o programa BASIC comece 
a investigate, basta escolher a op$So G 
do menu, Para iniciar a investigato em 
LISP, tecle (ESPECIALISTA HIPOTE- 
SES). Em LOGO, a investiga^ao terd ini- 
cio quando vocd teclar (ESPECIALISTA 
: HflPOTESES). 



APLICA^OES PARA 
O PROGRAMA DETETIVE 

As hipoteses e regras dadasnaL/sta- 
gem 1 foram escolhidas para que o pro- 
grama resol va o misterio apresentado em 
La gazza ladra. A historia da gazza ladra 
foi aproveitada pelo musico Joaquim 
Rossini para compor uma dpera e pelo 
desenhista Hergd para a aventura de Tin- 
tin denominada As foias da Castafiore. 
Na aventura de Tintin, ciganos que esta- 
vam acampados nas proximidades da 
mansdo do capitao Haddock sao acusa- 
dos injustamente de roubarem o valioso 
colar da soprano Castafiore. O heroi Tin- 
tin, porem, usando raciocmio regressivo, 



descobre que uma gralha, atraida pelo 
brilho da joia, entrou no quarto e levou 
o colar para seu ninho. 

0 leitor, substituindo as hipoteses e 
regras da Listageml, podera fazer seu 
computador resolver outros misterios. 
Assim, o computador poderd represen- 
tar o papel de Guilherme de Baskerville 
em 0 nome da rosa ou de Hercuie Poi- 
rot em 0 assassinato no Expresso Orien- 
te. Para que a maquina tenha exito, en- 
tretanto, e necessario escolher as regras 
rigorosamente. 

A escolha cuidadosa das regras e tao 
importante que surgiu nos Estados Uni- 
dos um tipo de profissional, o engenhei- 



Listagem 5 - Exemplo de execuqao 



A HIPOTESE ABA I XD E’ VERDADEIRA? (S/N) 

CIGANOS SEMPRE USAM BOTAS 
?S 

A HIPOTESE ABAIXO E’ VERDADEIRA? <S/N> 

APENAS CIGANOS USAM BOTAS 
?N 

A HIPOTESE ABAIXO E' VERDADEIRA? <S/N> 

A CAMAREIRA GASTAVA MUITO 
?S 

A HIPOTESE ABAIXO E 7 VERDADEIRA? (S/N> 

0 SALARIO DA CAMAREIRA ERA BAIXO 
?S 

A HIPOTESE ABAIXO E 7 VERDADEIRA? <S/N> 

A UNICA FONTE DE RENDA DA CAMAREIRA ERA 0 SALARIO 

?S 

USANDO A REGRA: 

A CAMAREIRA GANHAVA POUCO SE 
0 SALARIO DA CAMAREIRA ERA BAIXO 

E A UNICA FONTE DE RENDA DA CAMAREIRA ERA 0 SALARIO 



CONSEGUI PROVAR DUE A CAMAREIRA GANHAVA POUCO 
USANDO A REGRA: 

A CAMAREIRA PRECISAVA DE DINHEIRO SE 
A CAMAREIRA GASTAVA MUITO 
E A CAMAREIRA GANHAVA POUCO 

CONSEGUI PROVAR QUE A CAMAREIRA PRECISAVA DE DINHEIRO 
A HIPOTESE ABAIXO E' VERDADEIRA? <S/N> 

ERA FACIL VENDER 0 COLAR 

?S 

USANDO A REGRA: 

A CAMAREIRA ROUBOU O COLAR SE 
A CAMAREIRA PRECISAVA DE DINHEIRO 
E ERA FACIL VENDER 0 COLAR 

CONSEGUI PROVAR QUE A CAMAREIRA ROUBOU 0 COLAR 
A HIPOTESE A CAMAREIRA ROUBOU 0 COLAR E 7 VERDADEIRA 
APERTE QUALQUER TECLA PARA CONTINUAR 



> 
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ro de conhecimento, cuja unica fun?ao e 
escolher as regras. O engenheiro de co- 
nhecimentos entrevista medicos, jogado- 
res, geologos ou quimicos e tenta trans- 
formar a experiencia em regras que se- 
rao usadas por programas especialistas. 
A seguir fornecemos algumas dicas de 
como escolher as regras. 

Para tornar a investigafao emocionan- 
te, 6 preciso criar regras que usem outras 
regras. Regras para cuja comprovafao 6 
necessario usar outras regras for$am o 
computador a um raciocinio indireto e 
isto torna o processo de dedu9ao muito 
interessante. Tentemos esclarecer este 
ponto com um exemplo. Se quero for- 
necer ao computador meios de provar 
que (A CAMAREIRA ROUBOU 0 CO- 
LAR), posso simplesmente colocar a re- 
gra: 

((A CAMAREIRA ROUBOU 0 
COLAR) SE (A CAMAREIRA 
PRECISAVA DE DINHEIRO) 

) . 



A investiga^ao, porem, tomar-se-a 
muito mais interessante se fornercemos 
uma regra que permita deduzir que (A 
CAMAREIRA PRECISAVA DE DI- 
NHEIRO). Esta regra poderia ser: 

((A CAMAREIRA PRECISA 
DE DINHEIRO) SE (A 
CAMAREIRA GASTAVA 
MUITO)) 

E a emo^So aumentard se fornecermos 
ao computador a seguinte regra para pro- 
var que (A CAMAREIRA GASTAVA 
MUITO): 

((A CAMAREIRA GASTAVA 
MUITO) SE (A CAMAREIRA 
COMPRAVA 0B3ET0S CAROS 
) ) - 

Na listagem 5 temos um exemplo de 
execu9ao do nosso programa detetive. 



As fun^oes do programa especialista 

ESPECIALISTA recebe uma lista de hipoteses e, usando a funcao 
VEKIrlQUE, tenta encontrar uma que seja verdadeira. 

. A fun^ao VERIFIQUE recebe uma hipotese e, fazendo uso dos cihco passos 
ja descritos, descobre se ela e verdadeira ou falsa. 

• ^ fun9ao RELEV ANTES seleciona dentro da lista de regras todas as regras 
relevantes da hipotese que recebeu de VERIFIQUE. 

. A fun9ao PROVEUMA executa o passo 4, isto e, tenta provar que uma das 
regras relevantes e verdadeira. 

.A fun9ao VERDADEIRAS e a mais simples e interessante. Ela entrega para a 
f un 9|k VERIFIQUE uma antecedente para ser provada (da mesma forma que 
ESPECIALISTA entrega uma hipotese). Note que VERDADEIRAS faz 
uso de todo programa e, portanto, de si mesma. No programa BASIC, 
VERDADEIRAS foi incorporada a VERIFIQUE. 

. A fun9ao INVESTIGUE executa o ultimo passo, a saber, recorre ao usu&rio 
para decidir se a hipotese 6 verdadeira ou falsa. 

. A funfSo NEG recebe uma hipotese ou um antecedente e retorna sua 
nega9ao. 

. A fun9ao MEMBER verifica se uma hipotese esta na lista de fat os. 



E( L u , arcSo Costa Pereira 6 formado em Engenharia Eletrdnica pela Escota Pofitdcnica da 
USPeem Fisica pelo Instituto de Ffsica da USP. Fez mestrado em Ciencia Espaciaf no Instituto 
rv.rSV/f * &s Pf c>ais f'P SSo Jos4 dos Campos, SP, edoutorado em Engenharia Eletrdnica na 
Cornell University em Ithaca, Nova torque (EUA). Atua/mente 6 professor na USP. 

Andre Gurgel 6 analista de sistemas da sucursal de Sao Paulo da Cia. de Seguros AJianca da Ba- 
nhta e graduando do curso de Biol ogle da Universldade de Sao Paulo. 




voce e seu 
micro 




Um relacionamento assim 
merece um programa exclusivo 

• A Informatic Service desenvolve 
programas conforme suas neces- 
sidades. 

• Presta-lhe total assistencia atrav6s 
de uma Assessoria de Sistemas 
exciusiva. 

• Promove a relagao i 

Homem-Software-Maquina 

de forma perfeita o 

I 

Consulte-nos ainda hoje. 

IN FORMA TIC SER VICE DO 
BRASH 

Av. 13 de Maio, 47 - grupo 2707 
Fone: <021 ) 262-8769- RJ 



Ci 



CIENCIA MODERNA 
COMPUTAQAO 



A Untca Especializada em Livros 
e Revistas p/ Microcomputapao 





PublicagOes p/IBM PC/XT e Similares: 




IBM PC EXPANSION AND SOFTWARE GUIDE 






(Que) 3/E 


41 527 00 




SPREADSHEET SOFTWARE FROM VISICALC 






TO 1 2 3 (Owe) 


39077.00 




GRAPHICS FOR THE IBM PC (KOflles) 






acorr.panna diskette 


116 150.00 




100 READY-TO-RUN PROGRAMS AND 






SUBROUTINES FOR THE IBM PC (Bfeuj , 


40 425.00 




BUSINESS APPLICATIONS FOR IBM 
PERSONAL COMPUTER (Zimerman) 






43 977.00 




HOW TO GET STARTED WITH MS-DOS 






(Townsend) 


20 227.q0 




USEFUL SA3IC PROGRAMS FOR THE IBM PC 




(host) ........ 


12 97.7.00 




IBM BASIC (Payne) 


23 127 00 




IBM'S PERSONAL COMPUTER 2ND EDITION 






INCLUDES XT (Que) 


39 077 00 




ADVANCED BASIC AND BEYOND FOR THE IBM 






PC (Goldstein) 


48 877.00 




SOFTWARE SOLUTIONS FOR THE IBM PC: 
A Praclical Guide to Dbase II Lolus 1 2 3 






Visical etc (Wlllmott) 


36 627,00 




IBM DATA FILES A Basic Tutorial (Miller) 


23 125,00 




HANDBOOK OP BASIC FOR THE IBM PC 






(Schneider) 


48.877,00 




PC 00'S USING THE IBM PC OPERATING 
SYSTEM (Ashley) .... 






36 627.00 




IBM PC OATA FILE PROGRAMMING 






(Brown) 


36 627.00 



Vi site- nos ou papa uma lista do 
nosso estoque especifica para seu micro. 



Atendemos tamb4m por Fteemb. Postal e Varig. 



Av Rio Branco. 156 — loja 127 — subsolo 
Rio de Janeiro — Tels 262-5723/240-9327 
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Corrigir provas nao e mats problem a... 

Deixe isso por conta dos micros da finha TRS-80 modelo III 



Corrigindo 
provas no micro 



Lawrence Falconer King 



E ste programa corrige e calcula as 
notas de ate duzentos alunos 
por turma, de provas tambem de 
ate duzentas questoes. Para cada 
turma corrigida e criado um arquivo em 
disco ou fita, onde sao gravados os no- 
mes dos alunos e suas respectivas notas. 
Estes arquivos poderao ser listados no 
video ou na impressora- 

0 programa se apresenta dividido em 
tres partes. A primeira envolve a monta- 
gem do gabarito de respostas, a corre^ao 
das provas dos alunos e a cna^ao do 
arquivo por turma. A segunda parte e re- 
lativa a listagem dos arquivos existentes 
em disco ou fita. A ultima possibilita a 
transferencia de arquivos entrc discos, 
fitas, e entre disco e fita (c vice-versa). 

Como este programa ocupa uma 
grande area de memoria, somente micro- 
computadores com 48K RAM e que po- 
derao suporta-lo. Para sistemas operacio- 
nais drferentes do DOS-500 e do 
TRSDOS (do TRS-80), algumas modifi- 
ca^oes poderao ser necessanas nas roti- 
nas relativas a leitura-grava^ao de arqui- 
vos cm disco. Para isto, sugiro que voce 
consulte scu manual referentc ao siste- 
ma opeiacional. 

Para carregar o programa, utilizamos 
o comando RUN ou CLOAD. Apos isso, 
indicamos a tarefa que desejainos reali- 
zar, isto e, criar, listar ou transferir. De- 
vcmos teclar uma das ties lctras C, L ou 
T, de acordo com o trabalho a ser efe- 
tuado, ou entao teclamos FIM para ter- 
minal o processamento, se for o caso. 




= PROGRAMA DE COR R EC AO DE PROVAS 
= AUTORs LAWRENCE FALCONER KING 
<* TP • (0242 ) 42-1919 

*= PETR0P0L1S/R J 



REM 
REM 
REM 
REM 
REM 

CLEAR 10000 

85 DIM M4<200,4>, IX(2£)0> _ lwv _ 
90 M 1 &="CLASS IF I. C AR POR (A)LUNO OU POR (N)01A 
100 A4=CHR4(34> 



110 


G*=" " 


140 


CLS SPRINT T 


150 


INPUT "(OR 


END ELSE TS--L 


160 


IF T4="L" G 


0 E 


LSE GOTO IS 


170 


REM 


175 


REM 


180 


REM 


185 


REM 


190 


REM 


200 


REM 


210 


REM 


220 


REM 


230 


GO SUB 2500 


240 


REM 


250 


REM 


260 


REM 


265 


H1S=-"GAI3AR.1 


" :X' 


=0 


270 


IF Gl-"F" ( 


I TO 


< S/N ) 7"fi : 


280 


CLS 


290 


PRINT® 13- 


NMS 




300 


1 = 1 


310 


PR I NT!8 1 73 , 


320 


INPUT M4CI 


330 


IF HS(I.O) 



i "PROGRAMA DE CORRECAO DE PROVAS" 
(L)ISTAR OU < T TRANSFER IR'VI'ls IF T<t=' 



FIM" THEN CLS: 



1 080 



ELSE IF TS = "C" GOTO 200 ELSE IF T4“"T 



GOTO 116 



ROTINA DE CORRECAO E CRIACAO DOS ARQUIVOS 



PECA DADOS DE ENTRADA 



MONTAGEM DO GABARITO 
TO DA DISCIPLINA DE " 



H25>- : NM4sH34“"QU£STA0" :H4!="RESP0ST A 



CLS si- OR 1 = 1 
INPUT RSSIF 



TO NQ:M4(I, 
LEFT! (R 4, 1 ) 



i )■= 
="N 



'0"SNEXT I sPR INTiDiO , 
■' GOTO 500 



'OUTRO GA8AR 



IN T <LEN (NM4 ) /2 ) , "MONTAGEM DO GABARITO DA DISCIPLINA DE 

"SPRINTS 146, "ENTRE RESPOSTA DA QUEST AO"; I; 
r 0):IF LEN ( M4 ( I , 0 > ) =0 GOTO 310 
<>"FIM" THEN G0T0340 ELSE GOTO 390 



20 



MICRO SISTEMAS, maio/84 




PARA (C)RIAR 



Se^ teclamos C, o programa entra na 
rotina de cria^ao dc arquivo, que, por 
sua vez, 6 dividida em varias sub rotinas: 
entrada de dados, montagem do gabari- 
to, cone?ao das provas dos alunos, clas- 
sificaqao da turma por aluno ou por no- 
ta, grava$ao da turma em arquivo de dis- 
co ou fita e fndiee de aproveitamento 
das questoes. 

Na prime lr a sub-rotina, devemos en- 
trar com vanos dados necessarios ao 
processamento. Come^amos, entao, com 

0 nome da turma, que deve ser forneci- 
do como um nome de arquivo valido pa- 
ra o DOS, caso as unidades de disco se- 
jam uiilizadas. 

Vejamos, como exemplo, estes dois 
tipos de nome de turma: 1SERIE e 

1 SERIE/MAT. No primeiro caso, flea es- 
cificado apenas o nome da turma e pode 
ser utilizado se o arquivo de safda e por fi- 
ta ou disco, sendo que, neste ultimo, em 
caso de nao haver outra disciplina para a 
mesma turma. No segundo exemplo, fe- 
mes o nome da turma (atd o maxi mo de 
sete caracteres) seguido de uma exten- 
sao composta de “/” e mais tres letras 
(ou algarismos, no maximo ties caracte- 
res), o que serve para identificar o arqui- 
vo de notas de matematica da turma 
1SERIE, dos arquivos de notas de ou- 
tras disciplinas desta mesma turma. 

Em rela?ao aos doisexemplos acima, 
e mais convemente que utilizemos sem- 
pre o segundo, isto e, com a extensao 
(mesmo para arquivos em fita) e que 
esta extensao seja uma abreviatura da 
disciplina. 0 lato de o nome da turma 
iniciar por um algarismo e irrelevante 
para o programa, pois quando e criado 
o arquivo em disco, a letra T e prefixada 
ao nome, de modo que, ao se pedir o 
diretono do disco, apos a criado do ar- 
quivo, o nome sera T1 SERIE/MAT 
(usando o exemplo acima). 

Entramos, agora, com o nome da dis- 
ciplma cujas provas serao corrigidas. 
Este nome deve ser teclado corretamen- 
te, pois sera gravado no arquivo e nao 
mais podera ser corrigido. Por ultimo, 
vem o nome do equipamento onde sera 
criado o arquivo; teclamos D para disco 
ou F para fita. 

A proxima sub-rotina e montagem 
dos gabaritos. Ai temos uma facilidade, 
jd que, apos ter sido processada uma 
turma, o programa ainda guarda o gaba- 
nto anterior e pergunta se, para proces- 
sar uma nova turma, devemos utiliza-lo. 
Caso negativo, teclamos S a pergunta 
sobre a utilizado ou nao de outro gaba- 
rito. 

Para montarmos o gabanto, devemos 
teclar a letra correspondente a resposta 



URiR IFICACAG DO GABARITO 



340 I — 1 -f- i 
350 GOTO 310 
360 REM 
370 REM 
300 REM 
390 NQ«I~1 
400 CLS 

410 PRINT TAB CSQ) "A PROVA TEM " s NQ- /, GUESTOFS' 
420 PRINT TAB (21 CONFIRA-AS NQVAMENTE" 

430 FOR L-l TO 900 = NEXT L = CLS 
440 REM 
450 REM 
460 REM 
470 Y=0 



MOSTRE GABARITO NO VIDEO POR PAG IN AS 



430 GOSUfi 1990 

"mS n ?ado^Jf« para a disciplina Dt 

5G0 liFM 



CORRECAO DAS RESPOSTAS DOS ALUNOS 



500 REM 
510 REM 
520 REM 
530 A^-0 
540 A^A+1 
550 CLS 

560 PR INT364 , "ENTRE NOME DO ALUNO" - 

570 INPUT M£ < A , 2 > : IF LEN ( MS ( A , 2 ) )*0 THEN 560 

j8 ° IF MKft, 2)-"FlM" THEN GOTO 820 

DE CARACT ERERES DO NOME MAIOR D 
600 CLS r LNTRE N0WAME -NIE -FOR L-Ur00900:N£XT L:GOTO 550 

6 63Q D ° ALUN ° 

PR INTO 206, "ENTRE COM RESPOSTA PARA 



640 PR INTJD245, 

650 INPUT Ml (I, 4) 

680 NEXT I 
690 REM 

700 REM MOSTRE 

710 REM 
720 HI Ti -"RESPOSTAS DO ALUNO 
730 Y--0 s GOSUf) 1990 
740 REM 
750 REM 
760 REM 

765 RC-0 s FOR I==l TO NQ : 
i ) “STR'b ( VAL < M® < I 1 ))+!', 

766 NEXT I 

770 M£(A,3>=STRS>(RC#( 10/NQ > ) 
780 GOTO 540 
790 REM 



A QUESTAO "-I- 



RESPOSTAS DO ALUNO POR PAG I NAS 



r 5H2Ii^MS<A r 2)5X-4 



CALCULO DA NOTA DO ALUNO 



IF M9>(I , 4) < >MI( 1 ,0) THEN 766 ELSE RC=RC+i :Mt(I , 



BOO REM 
810 REM 

820 A— A - 1 - GOSUB 2430 
830 REM 
840 REM 
850 REM 



CLASSIFICACAO POR 
ALUNO OU NOTA 



MOSTRE NOTAS DOS ALUNOS DA TURMA POR PAGINAS 



1830 



GRAVACAO DAS NOTAS DOS ALUNOS NO ARQUIVO 
DISCO OU FITA 



' 0 ' 



860 GOSUB 
870 REM 
880 REM 
890 REM 
900 REM 
910 IF DV<E= 

920 IF DV*="D' 

930 REM 
940 REM 
950 REM 
960 REM 

1 ™ f: 1 : M$< I ,3 )“STR9>( VAL < MS (1,1)) *100/ A ) 5 NEXT I 

APROVEITAMENTO das QUESTOES" SH2$=" " iH3S="QUESTA0":H4 



GOSUB 1420 
GOSUB 1510 



ELSE GOSUB 1620 
ELSE GOSUB 1710 



MOSTRE 1NDICE DE APROVEITAMENTO 
DAS QUESTOES 



X"s X--3s Y= 
1990 



140 



980 Hi$= 

990 GOSUB 
1000 REM 
101O REM 
1020 REM 
1030 GOTO 
1040 REM 
1050 REM 
1055 REM 
1060 REM 
1065 REM 
1070 REM 
1080 CLS s 
OS^LEFTS ( OS , 1 ) 
1090 IF OS~"V 

1094 REM 

1095 REM 

1096 REM 
1100 GOSUB 

1104 REM 

11 05 REM 

1106 REM 

1110 IF DVS="D" 
1115 REM 
1120 GOSUB 2430 
1125 REM 



FIM DO PROCESSAMENTO DA TURMA 



ROTINA DE LISTAGEM DE ARQUIVOS 



PRINT 5) 10, "LISTA NO (V)IUEO OU NA (I)MPRESSORA ? " ; :INPUT 0£ 
OR 03>-"I" THEN 1100 ELSE 1080 



PECA DADOS DE ENTRADA 



2500 



LEIA ARQUIVO DO DISCO OU DA FITA 

GOSUB 2600 ELSE GOSUB 2780 

CLASS IP I CACAO POR ALUNO OU POR NOTA 

SAIDA DOS DADOS NO VIDEO OU IMPRESSORA 



m 
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correta a questao indicada, seguido de 
ENTER. Quando todas as respostas tive- 
rem sido entradas, teclamos FIM e 
ENTER. Feito isto, na primeira linha do 
video sera mostrado o numero de ques- 
toes da prova. Todo gabarito sera, 
entao, enviado para o video em pdginas 
com dez questdes cada e poderSo ser 
eonfendas novamente. Para corrigir 
alguma resposta que porventura tenha 
sido mtroduzida erroneamente, basta 
pressionar qualquer tecla, exceto 
ENTER. Seri pcdido, na ultima linha do 
video, que seja fornecido o numero da 
questfo a ter sua resposta corrigida. 
Apos isto, entramos com a resposta cor- 
reta. A pagina 6 enviada novamente para 
o video com a modifica^o realizada. 
Para mudar de pagina, teclamos sempre 
ENTER. 

Feita a montagem dos gabaritos, pas- 
samos para a corre^ao das provas dos 
alunos. Devemos entrar, entao, com os 
nomes dos alunos, os quais nao deverao 
ter mais do que 23 caracteres. Caso nao 
haja mais provas a serem corrigidas, ao 
invds do nome devemos entrar com FIM 
ENTER. 

Apos todas as respostas terem sido 
introduzidas, elas serao novamente mos- 
tradas no video, em paginas de dez ques- 
toes cada. Podcmos, entao, corrigir a 
resposta de qualquer questao que tenha 
sido introduzida erroneamente, utilizan- 
do o mesmo procedimento usado duran- 
te a montagem do gabarito. A prova sera 
corrigida e a nota do aluno calculada pe- 
la seguinte formula: 



N0TA-RESP.C0RRETAS*(10/Nfi QUEST. ) 



Vejamos agora a sub-rotina de classifi- 
ca$ao de turma por aluno ou por nota. 
Quando o ultimo aluno for processado e 
teclarmos FIM ENTER, seremos consul- 
tados sobre a possibilidade de arquivar a 
turma, classificada ou nao. Sc optaimos 
pela classifica 9 ao, devemos teclar A para 
o caso de ela ser por aluno, ou N, para o 
caso de ser por nota. 0 numero de alu- 
nos da turma sera mostrado na primeira 
linha do video e no meio deste a palavra 
CLASSIFICANDO, que ficara piscando 
durante a execu^o. 

Esta rotina e simples e, considerando 
que foi escrita em BASIC interpretado, 
levara uni tempo razoavel para ser com- 
pletada. Foram realizados dois testes. 
No primed o, com uma classificagao de 
52 alunos, o tempo rcquendo foi de 30 
segundos; corn uma turma de 21 1 alu- 
nos, o tempo necessaiio foi de 30 nunu- 
tos. 

Apos a classifica 9 ao, se realizada, a 
turma, os alunos e as notas, serao mos- 



11.30 IF GOSUB 1830 ELSE GOSUB 2930 

1140 CLSs PRINTS 10, "0UTRA TURMA PARA LISTAR (S/N) ? 5 INPUT Rli=IE LEE 

T4CR4, 1 >="S" GOTO 1100 ELSE GOTO 140 
1150 REM 
1160 REM 

1170 REM ROTINA DE TRANSFERENCE A DE AROUIVOS 

1180 REM 

1184 REM 

1185 REM PECA DADOS DE ENTRADA 

1186 REM 

1190 INPUT "ENTRADA EM <D)ISC0 OU < F ) ITA" ; ID4 s ID5=LEFT4 ( I D4 , i ) 

1200 IF ID4-"D" OR I04="E" 1210 ELBE 1190 

1210 INPUT "SAIDA EM <0>ISC0 OU < F ) I TA", 0 D 4 s 0 Dt=LEFT 4 C 0 D 4 , i > 

1220 IF 0D4-"D" OR 0D4="E" 1230 ELSE 1210 

1230 IF ID$="D" DN*=" DO DISCO" ELSE DN4=" DA FITA" 

1240 PRINT "ENTRE NOME DA TURMA A SER L IDA" ; DN4 ; a INPUT NTS 
1250 IF 0D1>="D" DN4=" NO DISCO" ELSE DN£=" NA FITA" 

1260 PRINT "ENTRE NOME DA TURMA A SER GRAVADA" p DNS j 5 INPUT TNS 

1270 INPUT "UOCE QUER SAIDA CLASSIFICADA (S/N> " ; R 4 : I F’ LEFTS ( R4 , 1 > = "S" T 

HEN PRINT Ml 5 5 s INPUT R14 

1280 IF ID4="D" INPUT"ENTRE NUMERO DO DISCO A SER LID0" ; DI$ 

1290 IF 0DS-"D" INPUT "ENTRE NUMERO DO DISCO A SER GRAMADO";DOS 

1294 REM 

1295 REM LEIA ARQUIUO DO DISCO OU DA FITA 

1296 REM 

1300 IF IDS~"D" THEN DN$=DI$: GOSUB 2650 ELSE GOSUB 2800 v 

1320 REM 

1330 REM UERIFIQUE SE CLASSIEICACAO NECESSAR I A 

1340 REM 

1350 GOSUB 2470 

1360 REM 

1370 REM GRADE DADOS EM DISCO OU FITA 

1380 REM 

1385 NT4-TN4 s IF 0DS="D" THEN DNS=D04:G0SUB 1470 ELSE GOSUB 1620 
1390 IF 0D4="D" GOSUB 1510 ELSE GOSUB 1710 
1400 REM 

1410 CLSs INPUT "OUTRA TRANS FERENC I A <S/N>"jR 4:IF LEFTS (RS , l 3 ="S"THEN GOT 

0 1190 ELSE GOTO 140 

1414 REM =“—-“===== 

1415 REM SUB-ROTINAS 

1416 REM ===:==!====== 

1420 REM 

1430 REM SUB-ROTINA OE ABERTURA DO ARQUIVO DISCO 

1440 REM PARA GRAVACAO 

1450 REM 

1460 CLSs INPUT "ENTRE NUMERO DO DISCO< 0 / 1 )";DN4 

1470 ARS="T"+NTS+"s "+DN4 

1480 OPEN "0", 1 , AR4 

1490 PRINT tti,NT5;",";NMi 

1500 RETURN 

1510 REM 

1520 REM SUB-ROTINA OE GRAVACAO DO ARQUIVO DE DISCO 

1530 REM E SEU FECHAMENTO 

1540 REM 

1550 CLSs PR I NT 8 460, "G RAVANDO DADOS NO DISCO" 

1560 FOR 1=1 TO A 

1570 PRINT Ml ,M4< IX(I) ,2) ;" IX< I ) ,3) 

1580 PR I NT 332 , USING" tl4W" j I ; 

1590 NEXT I 
1600 CLOSE Ml 
1610 RETURN 
1620 REM 

1630 REM SUB-ROTINA DE ABERTURA DO ARQUIVO DE FITA 

1640 REM PARA GRAVACAO 

1650 REM 

1660 CLSsPRINT"COLOQUE 0 GRAVAOOR PARA GRAVAR TECLE <P)RONTO"; 

1670 INPUT R24SIF LEFTS ( R2S , 1 )<> "P" GOTO 1660 1 

1680 CT4=AS+NT4+AS iCM4=A4+NM$+AS :CAS=A4+M4 < I ,2)+AS 
1690 PRINT *4-l,CTS,CM4,CAS,M5(I,3> 

1700 RETURN 
1710 REM 

1720 REM SUB-ROTINA DE GRAVACAO DO ARQUIVO DE FITA 

1730 REM E SEU FECHAMENTO 

1740 REM 

1750 CLSs PR INTO 460 , "G RAVANDO DADOS NA FITA" 

1760 FOR 1=1 TO A I 

17 70 CA4=A4*M4 < IX < I ) , 2 ) +A4 : CN4=M4< IX < 13 ,3) 

1780 PRINT #-i,CT4,CMS,CAS,CNS 
1790 PRINTS 32, USING - ; I ; 

1800 NEXT I 

1810 PRINT tt-1, "FIM", 0,0,0 

1 1820 RETURN 
1830 REM 

1840 REM SUB-ROTINA DE DISFLAY POR PAGINAS 

1850 REM 

1860 CLSs POKE 16916,3 

1870 PRINTS 14-INT<LEN(NT4)/2) , "NOTAS TIRADAS PELOS ALUNOS DA TURMA "pNT 
$• 

1880 PRINTS 07-INT(LEN<NMS>/2> ,"NA DISCIPLINA DE "jNMS 
1890 PRINTS 143, "ALUNO"; 8 169, "NOTA" 

1900 NP=INT(A/10) : P=0 
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trados no video, tambdm por paginas, 
com dez alunos cada. Neste ponto, n£o 
podemos mais efetuar nenhuma altera- 
$ao dos dados. Pressionamos ENTER 
para mudar de pdgina. 

Na sub-rotina da grava 9 ao da turma, 
se o arquivo for em disco, o programa 
perguntara que unidade (0 ou 1) devera 
ser utilizada. Se o arquivo de saida for 
em fita, o programa solicitara que prepa- 
remos o gravador. Feito isto, teclamos 
P. Durante a gravaijao serd mostrado, no 
meio da primeira linha do vfdeo, o 
numero do registro que esta sendo gra- 
vado, sendo um registro por aluno. 

Por fim, chegamos d ultima sub-roti- 
na para a cria^ao do arquivo, que 6 o 
mdic'e de aproveitamento das questoes. 
Apos a grava 9 ao da turma, sera mostra- 
do no video esse fndice, por paginas, 
com dez questoes cada. Para mudarmos 
de pagina, teclamos sempre ENTER. 
Este in dice e importante para que o pro- 
fessor saiba quais as questoes que apre- 
sentaram maior nivel de dificuldade ou 
facilidade para a turma, de modo que 
ele possa rever a materia concernente 
aquelas. Com isto termina o processa- 
mento da turma e, se mais nenhuma 
corregao for requisitada, o programa 
volta ao seu inicio. 



PARA (L)ISTAR 



Apos a criagao do arquivo, podemos 
lista-lo. Para isto, basta teclarmos L. A 
saida poderd ser realizada no video ou 
na impressora. Serao pedidos, entao, os 
mesmos dados solicitados inicialmente 
pela rotina de criagao (corregao de pro- 
vas) de arquivo, ou sejam: nome da 
turma, nome da disciplina e o equipa- 
mento onde se encontra o arquivo (dis- 
co ou fita). 

Se o arquivo e stiver em fita, devemos 
colocar o gravador pronto para leitura; 
se estiver em disco, devemos fornecer a 
unidade que deve ser utilizada (0 ou 1). 
Durante a leitura, o numero do registro 
sera mostrado no meio da primeira linha 
do vfdeo. Apos a leitura do arquivo, po- 
demos escolher entre a saida classificada 
(por aluno ou nota) ou nao. 

A turma e entao mostrada no video, 
em paginas, cada uma com dez alunos. 
Se a saida for na impressora, os dados 
serao enviados a ela. Ao fim desse traba- 
Iho, se mais nenhuma listagem for re- 
querida, o programa retorna ao seu ini- 
cio, solicitando outra tarefa a ser reali- 
zada. 



i?10 IF P*10+i0>A THEN LL=A ELSE LL=P»1D+10 
1920 FOR I=P*10+1 TO LL 

1930 PRINT MS< IX( I > ,2) ;TAB (40) USING VAL < MS ( IX < I ) 3>) 

1940 NEXT I r 

1950 RS=INKEY$: IF RS="" GOTO 1950 

i960 IF ASC<R$)=i3 AND LL< A THEN P-P + l iCLSsGOTOIVIO 
1970 POKE 16916,0 
1980 RETURN 
1990 REM 

2000 REM SUB-ROTINA DE DISPLAY POR PAGINAS 

2010 REM 

2020 CLSiPOKE 16916,3 

2030 PRINT® 32- I NT ( (LEN(H1S )+LEN (H2S ) ) 72 ) , Hi S - H2S 
2040 PRINT® 87 , H3S 
2050 PRINT® 97, H4S 
2060 PRINT 

2070 NP-INT (NG/10) 5P--0 

2080 IF P*10+ 10 >NG THEN LL=NQ ELSE LL=P»10+10 
2090 FOR I=p*10+1 TO LL 

2100 PRINT TAB ( 25) USING"##**"; I ; s IF VAL (MS ( I , X > >=0 THEN PRINT TA8<37> MS 
<I,X> ELSE PRINT TAB<37) USING "##♦*.#♦*"- VAL (MS < I X)> 

2110 NEXT I 

2120 RS=INKEYl! IF RS="" G0T02120 

2130 IF ASC(R$>=13 AND LL< NO THEN P=P + i :CLSiQ0TQ 2080 
2140 IF ASC ( RS ) =13 GOTO 2210 
2145 IF Y=i GOTO 2120 

2150 PRINT® 917 , " ":PRINT®896, "ENTRE NUMERO QUESTAO" ; 

2160 INPUT RS: I=VAL(RS> 

2170 IF VALCRS > < =LL AND VALCRS) > = P*10+i THEN 219P 

2180 PRINT® 896, "NUMERO DA GUESTAO FORA DA PAGINA, ENTRE N0VAMENTE":F0R 
L=0 TO 900SNEXT L.-PRINT® 896 , STR INGS < 64 " ") 9 sF0R L=0 TO 9GO=NEXT LsGOTO 
2150 

2190 PRINT8919," "s PR INT8896 , "ENTRE RESPOSTA CORRETA"- 

2200 INPUT MS ( I , X ) sCLS ! GOTO 2080 

2210 POKE 16916,0 

2220 RETURN 

2230 REM 

2240 REM SUB-ROTINA DE CLASSIFICACAO 

2250 REM 

2270 RS=LEFTS(R1$, l > : IF RS="A" THEN J=2 ELSE IF RS="N" THEN J=3 
2280 CLS SPRINT® 20, "0 NUMERO DE ALUNOS E ";A 



2290 PRINT® 468, "C L A 
2300 FOR IC=1 TO A-i 
2310 PRINT® 468," 

2320 FOR IM=IC+i TO A 
2330 PRINT® 468, "C L A 



SSIFICANDO' 



SSIFICANDO" 



2340 IF VAL(M$( IX(IC) , J> ) AND VAL(MS ( IX< IM> , J> > <>0 G0T02360 
2350 IF HKIX(IC) , J ) < =MS ( IX ( IM ) ,J> GOTO 2400 ELSE 2370 
2360 IF VAL (MS(IX(IC),J))> =V AL (MSCIX(IM) , J > ) GOTO 2400 
2370 IX(0)=IXUM> 

2380 IX(IM)=IX(IC) 

2390 IX(IC)=IX<0) 

2400 NEXT IM 
2410 NEXT IC 
2420 RETURN 
2430 REM 

2440 REM SUB-ROTINA DE PREPARACAO PARA CLASSIFICACAO 

2450 REM 

2460 CLS: PRINT® 10, "VOCE QUER SAIDA CLASSIFICADA (S/N) " ; s INPUT RS 
246S IF LEFTS ( RS , i )i="N" THEN 2470 ELSE PRINT® 10,MiS; sINPUT RiS 
2470 CLS s FOR 1=0 TO A: IX(I)=I: NEXT I 

2480 IF LEFTS ( RS, i)="S" AND A>i THEN GOSUB 2230 ELSE 2490 x 

2490 RETURN 
,2500 REM 

2510 REM SUB-ROTINA DE ENTRADA DE DADOS 

2520 REM 

2530 INPUT "ENTRE NOME DA TURMA "f NTS 
2540 IF LEN < NTS ) > 1 1 THEN 2530 
2550 A=0 

2560 INPUT "ENTRE NOME DA DISCIPLINA ";NMS:IF LEN(NM$)>24 THEN PRINT 

NOME DA DISCIPLINA DEVE TER ATE 24 CAR ACTERES": GOTO 2560 

2370 INPUT "ARQUIVO EM (D)ISCO OU (F)ITA "; 0V$s DVS=LEFTS< DVS , 1 ) 

258D IF DVS="D" OR DV$="F" THEN 2590 ELSE 2570 
2590 RETURN 
2600 REM 

2610 REM SUB-ROTINA DE LEITURA DE ARQUIVO DE DISCO 

2620 REM 

2630 INPUT "ENTRE NUMERO DO DISCO (0/1) "-DNS 

2640 IF DNS="0" OR DNS="i" THEN 2650 ELSE 2630 

2650 CLS.-PRINT® 460, "L ENDO DADOS DO DISCO" 

2660 AR$="T"+NTS+":"+DNS 
2670 OPEN " I " , 1 , AR $ 

2680 1=0 

2690 IF EOF < 1 ) GOTO 2750 
2700 INPUT # 1 , MS < I , 2 > , MS < I , 3 ) 

2710 PRINT332,USING"tt#M" ? I; 

2720 IF 1=0 THEN NMS=MSCI,3) 

2730 1=1+1 
2740 GOTO 2690 
2730 A=I- 1 
2760 CLOSE 
2770 RETURN 
2780 REM 
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CORRIGINDO PROVAS NO MICRO 



SUB-ROTINA DE LEITURA DE ARQUIVO DE FIT A 



PARA (T) RANSFER1R 



Esta rotina possibilita transferir ar- 
quivos de um equipamento para outro, 
do disco para fita e vice-versa, para o 
mesmo equipamento, de um disco para 
outro ou de uma fita para outra. 

Para efetuarmos a transfereneia, sao 
pedidos os seguintes dados: 

— equipamento onde esta o arquivo a 
ser transferido, disco ou fita; 

— o equipamento para onde serd trans- 
ferido o arquivo, disco ou fita; 

— o nome da turma a ser transferida; 

— o nome da turma a ser gravado no 
novo arquivo; 

— se a saida deve ser classificada (por 
aluno ou nota) ou nao; 

— se o equipamento de entrada e/ou 
safda for disco, qual a unidade que 
serd usada para leitura e/ou gravagao 
do arquivo. 

O motivo da existencia da quarta per- 
gunta (o nome da turma a ser gravado 
no arquivo de safda) e possibilitar a mu- 



PRINT "CQLOQUE 0 GRAVADOR PARA LEITURA TECLE (P >RONTO"; 

INPUT R2!s 

CLSsPR INT5)46G,"L ENDO DADOS DA FITA" 

1=0 

INPUT W- i ,CTl, CM!,M!< I , 2 ) , MS (1,3) 

IF CT!="FIM" AND 1=0 GOTO 2050 ELSE IF CTS="FIM" THEN 2920 
IF 1=0 PRINTa9A0,STRING!<63," "); SPRINTS 901 -INT < < LEN < CT! ) +LEN < CM! > 
r "LENDO "}CT! ? " DISCIPLINA DE ";CM!p 
IF 1=0 AND T!="T" AND CT!=NTI THEN NM!=CH!5 GOTO 2900 
IF CT!=NTI AND CM4=NM! THEN 2900 ELSE 2850 
PRINTS 32, USING I j 

1=1+1 t GOTO. 2G5D 
A=I-.l s RETURN 
REM 

REM SUD-ROTINA OE SAIDA EM IMPRESSORA 

REM 

LPRINTsLPRINT TAB(iO>"NOTAS TIRADAS PELOS ALUNOS DA TURMA " } NTS 
L.PRINT TAB < 15) "NA DISCIPLINA DE "?NM! 

L.PRINT TABOO) "ALUNO" f T AB < 4 1 )"NOTA"; 

LPRINTsLPRINT! 

FOR 1=1 TO A 

LPRINT MS (IX (I), 2) ; TAB < 40 ) USING"WttW . ««" ; UAL <M!< IX < I ) , 3 > ) 

NEXT I 

CLSsPRINTS 468, "F IM DA I. MPRESSAO" 

FOR L=0 TO 900: NEXT L. m 

RETURN JP 



danga do nome, se quisermos corrigi-lo 
ou renomea-lo. Caso a classificagao nSo 
seja pedida, o arquivo de saida contera 
os dados na mesma seqiiencia em que 
foram lidos. Para eliminar um arquivo 
do disco, devemos utilizar o comando 
KILL do DOS. Quando nenhuma outra 
transfereneia for requerida, o programa 
volta a pergunta inicial. 



Lawrence Falconer King 6 programador h6 
cinco a nos e meio, trabathando na drea de 
transmissao de dados internacionais, mats es- 
pecificamente no SIC RAM (Sistema Compu- 
taruado de RetransmissSo Automitica de 
Mensagens), tendo ministrado cursos de ope - 
rapso, software e linguagem Assembler relati- 
ves a esse sistema, na EM B RATE L. 






II KSR BI-DIRECIONAL 

O unico terminal teleimpressor fabricado no Brasil. 




A ISA, Indiistria de Impressoras S/A, acaba de lanqaro 
primeiro teleimpressor genuinamente brasileiro. Sua alia 
tecnologia eletronica, prova na pratica sua capacidade 
de trabalho. Imprime por matrizde pontos 9x7, 
permitindo ate 8copias impressas. com uma 
velocidade de 100 C.P.S. Equipado com 
memdria standard de 2 K caracteres, 



utilizando formulario continuo, 
folhas soltas ou bobina de papel. 
De 64 ate 132 caracteres por 
linha, com interface serial 
RS 232 elo de corrente e 
paralelo. Sua velocidade 
de comunicagao e de 
50 a 9.600 B.P.S. 

8 diferentes 
tipos de 
impressao. 
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Conhega mais 
detalhes do 
Teleimpressor 
KSR na 



INDUSTRIA DE IMPRESSORAS S.A. 
Escritorio: 

R. Pro). Jose Marques da Cruz, 234 
Fabrics; 

Rua Centro Africans, 74 
Tels.: (01 1) 240 2442 543 4939 
Telex: (Oil) 36926IIIM BR 
Sao Paulo - S.P. 



(SECODflTfi 



SISTEMA DE AROCESSAMENTO DE DADOS E TELECOMUNICAQOES 

VATRIZ. Rio de Janeiro - R. Republics do Libano. 61 ■ 127 and. 

Tel.: (021) 221-4677 • Telex (021) 30167 
FILIAIS: S. Paulo R. Frei Caneca, 1119 Tel.: (Oil) 2B4 8311 Telex (Oil) 22191 
Brasilia SCS 02 Bloco C n? 41 SL.01 - Tel.. (061) 225-1588 • Telex (061) 1750 
Porlo Alegre Rua Santa Terezinha, 300 Tel.:(051)32-3564 ■ Telex (051) 2144 

Goiania Belo Horizonte Salvador 






ESCOLA DO FUTURO. HOJE! 



A DJGITUS-INDUSTRIA DE COM PUT ADORES tem procurado atender 
ao usuArio do DGT-1000, cofocando no mercado novos equipamentos 
que aumentam a versatilidade do microcomputador. 

E com esse objetivo, que a DIGITUS fanga a UCTE - um mddulo que 
acoplado ao DG T-1000 ir£ atender aos profissionais principalmente 
da Area educacional. 
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HJIGITUS 



UCTE * Unidade Controladora de Terminals Educacionais. 



DIGITUS- 

Rua GAvea, 150 Belo Horizonte 
tel: (031) 332.8300 tx: 3352 
Rio de Janeiro — RJ. 
tel: (021) 257-2960 



Esta unidade permite a comunicagAo entreum DGT-1000 central com atA 1 6 (dezesseis) DGT-1000 secundArios 
atravAs da porta de cassete . 

Os dezesseis terminals poderSo ser computadores na configuragAo minima, pois sendo a comunicagAo atravAs 
da porta de cassete nSo A necessArio qualquer modificagSo nos terminais. 

0 computador central, comandado pelo instrutor, deverA ter uma configuragio minima de 48KB de memdria e 
um Disk-Drive. 

0 sistema permite ao instrutor carregar programas nas estagdes individuals, podendo apiicar provas e ter as 
respostas automaticamente gravadas no disquete, para posterior avaliagSo. 

Nas estagdes individuals, os estudantes poderSo gravar e carregar programas diretamente no computador do 
instrutor e poderAo tambAm usaroseu computador independentemente. 

Suas aplicagdes sao de grande valia para centros educacionais, cursos monitorizados, escolas tAcnicas, etc. 

A UCTE faciiitarA muito o aprendizado em cursos de programagSo e operagao de computadores, alAm de permitir 
o ensino em outras Areas. 

A UCTE dispensa o uso incdmoao do cassete eo seu custo A menordo que compraros gravadores para os 
terminais. 

OBS.: A UCTE pode ser utilizada com o DG T-100. Consulte seu revendedor. 






Conhega dots novos enderegos de memoria do Apple: um deles e capaz de produzir 
diversos sons; o outro, controfa o entra-e-sai de informagdes das fitas cassete 




Efeitos sonoros 
e clicks de gravacao 



Rudolf Horner Junior 




E xiste na memoria de qualquer 
microcomputador uma serie de 
enderegos que sao utilizados pe- 
lo prdprio equipamento para re- 
gistrar determinados valores logicos do 
sistema. Manipulando-os diretamente, 
vdrias operagoes tomam-se excepcional- 
mente mais rapidas e faceis de serem ob- 
tidas, e em algumas oca sides podemos 
ate realizar pioezas impossiveis de serem 
alcangadas com autilizagao unica empre- 
gada em um determinado equipamento. 

Qualquer bom programa escrito em 
BASIC — e que tenha um alto grau de 
eficiencia — normalmente usa muitos 
enderegos e rotinas em linguagem de ma- 
quina (comandos POKE, PEEK, CALL 
e URS). Muitos programadores, entre- 
tanto, refutam estas grandes vantagens 
por trazerem com elas um efeito cola- 
teral, quase sempre, bastante grave. Sis- 
temas de software, que embora escritos 
em linguagem de alto nivel usem endere- 
gos especificos de memdria e rotinas 
montadas em Assembler na RAM ou ja 
disponiveis na ROM de cada mdquina, 
acabam nSo sendo portaveis de um equi- 
pamento para outro, ou seja, os programas, apesar de escritos 
em uma mesma linguagem, nSb podem ser rodados em equi- 
pamentos de linhas nao compatfveis. 

Para ilustrar vamos citar um exemplo. £ bastante facil desen- 
volver um programa em BASIC para uma miquina da linha 
Apple que crie um grdfico qualquer. 0 programa ird se tornar 
mais eficiente a medida em que utilizarmos algumas caracten's- 
ticas especificas do equipamento. No entanto,aomesmo tem- 
po que o tornamos mais eficiente, dificultamos a sua execugao 



em um computador da linha TRS-80 ou qualquer outro cujas 
caracten'sticas nao sejam identic as is do Apple. Justamente pa- 
ra tentar evitar esta Torre de Babel, os sistemas criados para fun- 
cionar em diversos tipos de equipamento acabam perdendo 
eficiencia para que a portabilidade nao fique prejudicada. 

Mas aiqda bem que nossos objetivos nesta segSo nao sao es- 
tes. Portanto, vamos falar sobre mais alguns enderegos de me- 
mdria que for am idealizados para que pudessem realizar algu- 
mas tarefas especiais. 
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O ENDEREGO DO SOM 



Como ja sabemos, existem no Apple certos enderegos de 
membria que atuam simplesmente como comutadores. Sao en- 
deregos que, quando referenciados em uma instrugao de leitura 
ou escrita, fazem com que algum dispositivo do equipamento 
passe de um estado a outro, Creio que o exemplo mais facil 
deste tipo de comutadores e o que estd associado is paginas de 
alta resolugao grafica. Tratam-se de dois enderegos de memoria 
cuja simples referenda em linguagem de alto ou baixo ni'vel le- 
va a tela do micro a exibir a pagina um ou a pagina dois de alta 
resolu§ao de graficos. 

Desta vez, porem, falaremos sobre um outro enderego de 
memdria que tern um funcionamento similar a estes dois. £ 
mais um enderego constante no grupo das 4096 localizagQes 
de memoria especialmente destinadas as fungoes de entrada e 
sai'da. Estamos falando do enderego $C030 (em decimal, equi- 
valente a 49200 ou —16336), o qual esta diretamente vincula- 
do a um pequeno alto-falante de oito ohms que vem dentro da 
caixa das maquinas nadonais compativeis com o Apple II. 

Veja na figura 1 o esquema que define a posigao deste alto- 
falante. A localizagao SCO 30 6 um exemplo tipico de um en- 
derego comutador. A simples referenda a esta localizagao faz 
com que o cone de papel do alto-falante alteme suas posigoes 
entre para dentro e para fora. A cada referenda ao enderego, 
hayeia uma mudanga do estado do cone entre estas duas possi- 
bilidades, e cada vez que ocorre uma mudanga de estado o alto- 
falante emite um pequeno click. 

Os manuais que acompanham o Apple e similares explicam 
como obter sons referenciando o alto-falante pelo comando 
BASIC que todos, provavelmente, ja usaram: PEEK (-16336) 
ou PEEK (49200). Qualquer um deles fara com que o alto-fa- 



lante produza um som praticamente imperceptivel. H se colo- 
carmos um destes comandos dentro de um loop que o execute 
diversas vezes, 0 resultado podera ser um som cacofonico bas- 
tante facil de ser percebido. 

Contudo, torna-se dificil procurar emitir notas musicais 
com freqiiSncias precisas usando linguagem BASIC interpreta- 
da. £ que o interpretador consome um tempo muito grande 
para executar o programa e nossas freqiiencias acabam sendo 
comprometidas. Quando queremos utilizar efeitossonorosmais 
interessantes em nossos programas, somos, via de regra, obriga- 
dos a trabalhar com rotinas em linguagem de maquina cujo 
tempo de execugao e muito menor que o de programas em 
BASIC. 

Para criarmos uma rotina desta natureza — e que satisfaga 
plenamente nossos objetivos — devemos ter sempre em mente 
o tempo necessdrio para a execugao de cada comando existen- 
te na rotina; isto para que possamos fazer um numero correto 
de references ao alto-falante por unidade de tempo e produzir 
sons das mais variadas freqiiencias. 

E claro que devemos agir tambem com bom sen so. Se voce 
criar uma rotina que simplesmente referencie o enderego v 
SC030 e na instrugao seguinte volte ao inicio, completando 
tun loop, evidentemente voce nao podera ouvir nenhum resul- 
tado. Nao perca de vista o fato de que a frequence do relbgio 
do equipamento (S de 1 .023 MHz e que , mesmo que o seu alto- 
falante conseguisse reagir e trocar de estados nesta velocidade, 
seu ouvido humano, por mais apurado que seja, nao consegui- 
ria ouvir sons com freqiiencia superior a vinte mil Hz. Se a ro- 
tina funcionasse, ela so poderia produzir ultra-sons. 

Vamos ver agora duas rotinas em linguagem de mdquina que 
foram criadas para uso em programas de jogos e que tiveram de 
ser elaboradas dentro deste espirito. Veja inicialmente a lista- 
gem em Assembler da figura 2. Temos uma rotina que servira 
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EFEITOS SONOROS E CLICKS DE GRAVAQAO 
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03 09- 
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#$00 


030B- 


85 


FT 




STA 


$FF 


030D-- 


A9 


FF 
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#$FF 
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85 


FE 




STA 


$FE 
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A9 
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#$00 


0313- 


30 
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$0205 


0315- 


EE 


30 


C0 
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$C830 


0318- 


CE 


38 


CO 


DEC 


$CD30 


0318- 


A6 


FF 




LOX 


$FF 


0310- 


CA 






OEX 
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para produzir o disparo de uma arma futurista, um revdlver de 
raio laser. Observe, na listagem, as referencias ao endere 90 
$C030. Veja tambdm porque a rotina, quando executada, dari 
a impressao de um som com diversos pulsos. As tres primeiras 
instru^oes contem uma chamada & propria sub -rotina de cria- 
9 S 0 do efeito sonoro. Por este motivo, ele serdexecutado varias 
vezes. 

Veja, na figura 3 , a listagem de um programa em BASIC que 
construird a rotina para voce. Carregue-o na memdria da forma 
como aparece listado, execute-o com um coman do RUN e logo 
apds use o comando CALL 768 para ouvir o disparo do revolver. 

Experimentada esta rotina, vamos tentar uma um pouco 
mais complicada. Vamos carregar a nova rotina na mesma posi- 
fdo que a anterior: a terceira pagina da memdria RAM do 
Apple. A nova rotina estd listada na figura 4. Como voce pode 



100 DATA 32,9,3,32,9,3,32,9,3,16 

9.0. 133. 255 , 169 , 255 ,133, 254 , 

1.69.0. 48. 192.238.48. 192.286, 
48,205,166,255,202,208,253, 1 
98,254,240,5,230,255,76,17,3 
,96 

110 FOR A = 768 TO 809: READ B: POKE 
A,B: NEXT : END 



Figura 3 

ver, ela d bem mais cheia de detalhes que a anterior. O objetivo 
desta vez 6 obter o efeito sonoro de um helicdptero voando. 

Se preferir o BASIC, use o programa da figura 5: ele earle- 
ss a rotina para voce. Digite-o exatamente como estd listado, 
execute-o com o comando RUN e, em seguida, execute a roti- 
na em linguagem de mSquina que foi carregada na memdria. 
Comande CALL 768 e ou^a, por alguns instantes, o som da he- 
lice de um helicdptero golpeando o ar. 

Ai estd. Nao existe limite-para os efeitos que podem ser ob- 
tidos com o'uso do endere 9 o de memdria vinculado ao alto-fa- 
lante. Basta apenas um pouco de cuidado e imagina^o. 



REGISTRO DE INFORMA^OES EM FITA 



Vamos dicutir agora o processo utilizado pelo Apple para 
registrar informagoes em uma fita magndtica. Este processo 
tern a ver com o nosso assunto pois trata-se do uso de uma lo- 
caliza 9 ao de memdria com fundonamento similar ao que aca- 
bamos de descrever. 

Todos sabemos que na parte traseira de nosso micro temos 
dois conectores denominados IN e OUT, cuja fungao d, respec- 
tivamente, receber e enviar inf orma 9 oes para um equipamento 
de grava 9 ao em fita magnetica, um gravador cassete por exem- 
plo. Na realidade, ao conector OUT d associado um endere 9 o 
de memdria da mesma forma como d associada uma localiza- 
9 ao ao alto-falante. O endere 90 associado ao conector OUT 
corresponde a localiza 9 ao $C020 (em decimal, 49184 ou, 
-16352). 

Fazer referenda a esta posi 9 ao faz com que a voltagem do 
conector OUT mude de zero para 250 mv. Se existir um equi- 
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100 DATA 160,35,32,8,3,136,203,2 
50,169,1,133,255,169,69,133, 
254,469,0,141,48,192,233,48, 
192,166,255,202,208,253,198, 

254 240 5 

110 DATA 230,255,76,16,3,169,18, 
133,8,169,32,133,6,169,3*133 
,7,141,48,192,238,48,0,206,4 
8,192,198,6,208,2,198,7,208, 

248 ,198,8,208, 227 , 96 
120 FOR A = 768 TO 839: READ B: POKE 
A,B: NEXT : END 



Figura 5 

pamento de gravagao , serd registrado em fita um pequeno 
click. Da mesma forma que na produfao de musica, ao referen- 
eiaimos a iocaiiza^ao SC 020 continua e repetidamente, pode- 
remos produzir. na Fit a, um tom de gravafao. Pela varia^ao de 
dura^ao e amplhude deste tom, a informa 9 ao poderd ser codi- 
ficada. 

Existem, no programa monitor da ROM, rotinas para codi- 
ficar informafoes em fita cassete que sdo usadas para execu- 
tar os comandos do monitor READ e WRITE. As mesmas ro- 
tinas sdo utilizadas para executar os comandos LOAD e SAVE 
do BASIC Applesoft. 

Para o procedimento de leitura de informagoes, temos o 
processo inverso. Uma rotina em linguagem de mdquina veri* 
fica o sinal exjstente no conector IN e, atraves da inspe^do da 
localizafao de memoria SC060 (em decimal equivale a 49248 



ou —16288), pode-se ouvir os tons que foram originalmente 
gravados na fita. Da interpreta 9 §o destes tons, o computador 
pode recuperar as informa 96 es que haviam sido registradas an- 
teriormente. 

Como vimos, devemos usar, portanto, os enderegos SC020 
para registrar as informa 9 oes e SC060 para recuperd-las. li im- 
portante, porem, observar um detalhe: para que se produza um 
click no conector OUT, basta que se fafa uma referencia ao en- 
dere 9 o SC020. Esta referencia poderia ser de duas e species: 
uma de leitura (em Assembler, LDA; em BASIC, PEEK) e ou- 
tra de escrita (em Assembler, STA; em BASIC, POKE). 

Uma referencia de escrita nao poderia ser usada pelo proces- 
sador 6502 (devido ao sistema utilizado) para gravar dados nu- 
ma localiza 9 ao de memoria: primeiro ele le o conteudo desta 
localiza 9 ao para depois gravar nela o valor desejado. Isto signi- 
fica uma dupla referencia e, consequentemente, dois clicks ao 
inves de apenas um como seria correto. 

claro que com estes endere 90 s poderi'amos criar as nossas 
prdprias rotinas para registrar e recuperar informagbes de um 
gravador de fita. No entanto, estas nao poderiam estar em lin- 
guagem BASIC, uma vez que o interpretador nao seria suficien- 
temente rdpido para ler e interpretar as variagbes dos estados 
das localiza 9 oes de membria associadas aos conectores IN e 
OUT. As rotinas teriam que estar escritas em linguagem de ma- 
quina. ■ 



Rudolf Horner Junior cursa CiGncia da Computapao na Unicamp e 4 $6- 
cio da Potencial Software, firms que produz programas especiais para 
microcomputadores em Campinas, SP. 
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80 posigoes de impressao (normal), bidirecional, velocidade 
de lOOcps, densidade horizontal 5 a 16,7 cpp, form, 
em ate 5 vias. Interface paralela. Modulo optional de alta 
resolugao grbfica “bit image” (enderegamento das agulhas) 
e quail da de de impressao carta. 

A IMPRESSORA COMPLETA E DE MENOR CUSTO DO 
MERCADO. 



132 posigoes de impressao 
(normal), bidirecional, 
velocidade de lOOcps, 
densidade horizontal 5 a 
20 cpp, form, em ate 5 vias. 
Capacidade grafica de 72 x 
7S pts por polegada. Interface 
paralela ou serial. 

PARA QUEM NAO PODE ABRIR 
MAO DE FORM ULARiOS DE 132 
POSIGOES. 



132 posigoes de impressao 
(normal), bidirecional, 
velocidade de 200 cps, 
densidade horizontal 5 ou 
10 cpp, form, em at6 7 vlas. 
Interface paralela ou serial. 

PARA MICROS OU 
M IN ICO MFUT ADORES, O 
COMPROMISSO DE VELOCIDADE 
E ROBUSTEZ. 



VENDA-LEASING-ALUGUEL 



PRONTA ENTREGA DE TODOS OS MODELOS 
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TK2000 
no mercado 




TK 2000 



Apresentado ao publico du- 
rante a Feira de lnform4tica do 
ano passado, 50 encontra agora 
disponfvel no mercado o TK 
2000, computador colorido da 
Microdigital. O 2000 nao 6 total - 
mente compatfvel com o Apple, 
mas poder£ rodar programas ge- 
rados em BASIC para essa I inha 
de computadores desde que se- 
jam feitas algumas mudangas 
nos enderegos da ROM. O equi- 
pamento possui dois formatos 
de gravagao em fita cassete: o 
seu prdprio formato e outro 
compatfvel com o da linha 
Apple. 

A UCP do novo micro traba- 
Iha com microprocessador 6502, 
de 8 bits. O TK 2000 tern 16 
Kbytes de memdria ROM e 64 
Kbytes de memdria RAM, dis- 
ponfveis para o usudrto, seu te- 
clado 4 profissional, com 54 te- 
clas, e o novo equipamento da 
Microdigital pode ser tigado di- 
retamente a uma televtsao colo- 
rida, sem que seja necess4ria 
qualquer alteragao na TV. O 
2000 possui safda para sinal de 
video, podendo ser Itgado a um 
monitor profissional, e tambdm 
saida de um canal de som pels 



TV. O display do video 4 apresen- 
tado em quatro modos. No mo- 
do texto, com formato de 40 ca- 
racteres X 24 linhas; modo grdfi- 
co com formato de 40x48; modo 
grgfico de alta resol ugao com 
formato de 280x192 pontos e 
display texto de alta resotugao. 
Em sua configuragao b4sica, o 
TK 2000 vem com saida RF, 
saida para monitor de video 
preto e branco ou a cores, safda 
para gravador cassete e interface 
paraiela tipo Centronics para im- 
pressora. Na vers So b&ica, pos- 
sui monitor Disassembler e mini- 
assembler em ROM. O novo 
equipamento da Microdigital 
pode ser encontrado em v4rias 
lojas de revenda de microeom- 
putadores e seu prego 4 de 
Cr$ 849.850,00 {pregodeabril). 
Quanto aosoftware 1 parao 2000, 
j4 se encontram disponfveis os 
seguintes programas: Controle 
de Estoque; Cadastro de Clien- 
tes e Mala Direta; Contas a Pa- 
gar; Contas a Receber; Controle 
Banc4rio; Multi plan, e os jogos, 
multi-invader; sabotagem; pani- 
co; auto-estrada; corrida; papa- 
tudo e ataque, todos da Micro- 
soft. 



Pacote topografico 
da Codimex 



Seguindo sua politica de 
apoio ao usuirio profissional, 
a Codimex est4 oferecendo, a 
n fve| nacional, um pecote des- 
tinado a aplicagoes na 4rea de 
Topografia, o qual inclui um 
micro Codimex-6809 com 32 
Kb e uma unidade de disco, 
uma impressora Ecodata bidi- 
recional com 1 00 CPS e p.rogra- 



mas para C4Iculo de Poligonal, 
Cdlculo de Area e outros espe- 
cificos que descobrem erros 
eventuate de c4lculo de dngulo 
e medida cometidos no campo, 
Para matores informagdes, o 
enderego da Codimex 4 Av. 
Wenceslau Escobar, 1549, Vila 
AssungSo, Porto Alegre, RS. 




A f am ilia I 7000 



O novo integrante da familia 
I 7000, da Itautec, o Junior, 
apresentado ao publico durante 
a ultima feira de Informdtica, te- 
ve seu langamento comercial no 
final de margo. O novo micro- 
computador da Itautec foi desen- 
volvido em duas versQes : I 7000 
Junior e I 7000 Junior E. A di- 
ferenpa bdsica entre os dois mo- 
delos est4 nq tec! ado. AI4m do 
teclado tipo mdquina de escre- 
ver com caracteres em portugues, 
do modelo mais simples, o Junior 
E possui tamb4m um teclado 
num4rico separado e pode traba- 
Ihar com disquetes de 5" ou 8". 
Juntamente com o langamento 
do Junior, a Itautec apresentou 
um conjunto de servigos tais 
corrto as$ist4ncia t4cnica; centro 
educacional para cursos e treina- 
mento; centro de atendimento 
ao usu4rio, para atender as duvi- 
das de clientes por teiefone ou 
telex e um catdlogo com 161 
programas aplicativos desenvol- 



vidos por 44 software-houses 
credenciadas pela Itautec. Os 
tr4s equipamentos da Itautec 
sao totalmente compativeis en- 
tre si, e a migragao do Junior pa- 
ra o Junior E e para o I 7000 se'" 
d4 atrav4s de um kit de expan - 
s§o. O I 7000 Junior, em seu 
modelo bdsico, 4 composto por 
UCP com 64 Kbytes, video de 
fdsforo verde e drive para dois 
disquetes de 5 1/4", custando 
450 ORTN. Na mesma confi- 
guragao, o JrE custa 480 ORTN. 
Segundo Ronaldo de Campos 
Melo, Diretor de Marketing da 
Itautec, o Junior deveri atingir 
um publico formado por peque- 
nas e mddias empresas, escolas e 
profissionais liberals. Com este 
langamento, a meta da Itautec 
para este ano 4 de comercializar 
64 mi) microcomputadores pes- 
soais, atingindo 1 5% do merca- 
do, e um faturamento de Cr$ 
80 bilhoes contra 14 bilhdes de 
1983. 



Brasil ja tem light-pen 




A Prisma, uma divisao de 
produtos da Macromicro, lanyou 
recentemente no mercado 
brasileiro a LP 200, primeira 
light-pen fabricada no Brasil. 
Para quern ainda nffo conhece, 
a light-pen permite o acesso 
a dados diretamente na tela do 
monitor, substituindo o teclado 
nas t a ref as de selegao de cores, 
dados e desenhos, que passam 
assim a ser feitas diretamente no 



visor do microcomputador. 

Por enquanto apenas os usu4rios 
da linha TRS-80 poderSo 
utilizar a LP 200, mas a Prisma 
promete para breve um modelo 
especffico para a linha Apple. 
Quaisquer duvidas sobre como 
utilizar ou tirar o melhor 
proveito do produto podem ser 
esclarecidas pelo teiefone 
(011} 572-3304. 
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Micromaq invest e 
na area de cursos 



A Micromaq, uma das primeiras lojas 
especial izadas em microcomputadores a surgir 
! no Rio de Janeiro, langou recentemente um 

[ curso de Tdcnicas Digitais e Eletronica, 

j incrementando o que para a loja 4 um dos 

| pontos fortes: a drea de cursos. Como diz 

j Edson Abid, engenheiro civil e um dos s6cios 

I da empresa, "a concorrdncia 4 grande e sobre- 

| vive quem ndo se limitar a vender software e 

i 4 hardware. E preciso estar sempre na vanguar- 

! ' da e pensar a longo prazo". 

Periodicamente a Micromaq oferece cursos 
j de BASIC bdsico, BASIC avangado, Hardware 

(L6gica Digital) e Micros para Criangas. Aldm 
destes, mantdm uma equipe especial, respon- 
sdvel pel os cursos nas empresas. ''Estamos 
tambdm cedendo nosso espago para reunites 
de um clube de usudrios do TK82-C e do 
j Color 64", lembra Edson. 



Mas n3o 4 sb no setor de cursos que a loja 
estd investindo. Em sua sede funciona uma 
oficina especializada capaz de dar assistdncia 
tecnica a qualquer computador nacional ou es- 
trangeiro, atendendo a pedidos do Brasil intei- 
ro, e foi justsmente la que o Color 64 foi 
desenvolvido e langado. 

A loj8 comercializa equipamentos de 
vdrios fabricantes nocionais, acompanhadosde 
perifdricos para todas as marcas, suprimentos e 
impressoras. Na parte de software, possui 
jogos educativos e de animagao e desenvol- 
ve aplicativos para os TK, Color 64, Microen- 
genho e tambdm para a I inha Apple em geral. 
O enderego da Micromaq 4 Rua Sete de Se- 
tembro, 92, Ij. 106, Centro, tel.: (021) 222- 
6088, Rio de Janeiro, RJ. 



MM MICROMAQ 




Edson Ab'tb: "Scbrevn/e quem n£o se limits 
a vender software e hardware , " 



Plotter HP para sistemas 
CAD/CAM 



A Hewlett-Packard acaba de 
langar um tragador de grbficos 
para aplicagdes em projetos de 
circuitos integrados e impresses, 
mecanicos, arquitetura e enge- 
nharia civil, Na opiniao de Brian 
Moore, Gerente Geral da divisao 
deSan Diego da Hewlett-Packard, 
"o HP7586B completa a nossa 
famflia de produtos para dese- 
nho grdfico, atendendo pratica- 
mente a todas as exigencias dos 
usudrios de CAD/CAM", 

O HP7586B trabalha com fo* 



Ihas de papel tamanhos A4/A atd 
AO/E ou com rolos de papel 
com largura de 26.7 a 91.9 cm 
e comprimento de 45.72 m, per- 
mitindo assim desenhos contf- 
nuos. Possui resol ugao de 0.025 
mm para enderegamento e reso- 
lugao mecanica de 0,003; sua va- 
locidade 4 de 60 cm/seg e a ace- 
iersgao da pena 4 de 4 g. Com- 
patfvel com os equipamentos 
HP, o novo plotter tambdm po* 
de ser usado em alguns compu- 
tadores de outras marcas. 



Clube 

de manutencao 



A M.S. Industria Eletronica estd langando um clube de manuten- 
gao para possuidores de micros nacionais e importados. Entrando 
co mo associado, o usudrio terb direito a dois check-ups gratuitos por 
ano, mao-de-obra gratuita em qualquer conserto ou substituigao de 
pegas e assinatura de uma revists tdcnica, entre outras vantagens. 0s 
sbeios do Clube de Manutengao MS receberao trimestralmente uma 
tabela de desfcontos para compra de equipamentos em loja especiali- 
zada em micros e descontos especiais para cursos em escolas creden- 
ciadas pelo clube. O Clube M.S. estd aberto somente a pessoas f fsi - 
cas, e maiores informagoes a respeito podem ser obtidas na prbpria 
M.S., rua Dr. Astolfo Araujo, 521 — Ibirapuera/Sao Paulo. Tel.: 
(011) 549-9022. 



1 STRINGS | 



★ A Cobra Computadores e Sistemas Brasileiros S.A. esta iniciando a 
operagao de $eu Centro de Computagao Grdfica (Computer Aided De- 
sign) que permitird uma significative redugao do ciclo de desenvolvi- 
mento de seus produtos. A instalagao do Centro visa garantir que a 
empresa atinja seus objetivos para o bienio 84/85, entre os quais se 
destaca o desenvolvimento do superminicomputador de tecnologia na- 
cional. ★ Foi inaugurada recentemente na Rua Sao Janudrio, 907, 
em SSo Cristbvdo, no Rio de Janeiro, a Cl TEC — CiSncia e Tecnologia 
Livraria e Editors Ltda. que inicia suas atividades como distribuidora 
de livros tdcnicos e diddticos em geral. Com mate de 500 tftulos na 
drea de computagao, a CITEC estd atendendo pedidos de catdlagos 
atrevds do Servigo de Reembolso Postal ou pelo telefone (021 ) 580- 
Q034. + A Nashua do Brasil acaba de langar a copiadora 3025, que 
ttra 25 cbpias por minuto nos formatos A4, offcio e Didrio Ofrcial. 0 
equipamento trabalha simultaneamente com dois cassetes de papel de 
tamanhos diferentes, tern memoria, painel digital e porta-clips magne- 
ttco. Aceita originais de atd 254x356 mm ou maiores, gragas d tampa 
destacdvel. Seu prego, de Cr$ 9 milhoes e 850 mil, inclui os impostos, 
e a prestagao mensal de leasing situa-se por volta dos Cr$ 350 mil. * 
A ADP Systems estd se preparando para ministrar cursos por drea de 
atuagao (medicina, engenharia, comunicagao, etc.) a partir do segun- 
do semestre deste ano. Estbb sendo iniciados tambdm na ADP cursos 
de pbs-graduagao de ex-alunos. O primeiro, de uma sdrie voltada a 
produtos usuais, serd o CICs, destinado a aumentar a produtividade. 
Jd na parte de especializagao profissional, serd desenvolvido Auditoria 
de Sistemas. ★ Prestando mais um servigo aos usudrios da linha TK, a 
Microdigital Eletronica coloca d disposigblo o telefone de sua filial para 



assistencia tdcnica em Porto Alegre: 24-5060. O enderego 4 Av. Borges 
Medeiros, 410, bloco It, IIP andar, conjunto 1108. *- Jd estd sendo 
comercializado o CP500/M, a nova placa CP/M d aProgus Ciberndtica 
Ltda. O CP/M torna o CP-500 compatfvel a nfvel de disco com o Sis- 
tema 700, tendo sua capacidade aumentads de 162 K para 190K. it 
A Informax Assessoria e Comdrcio de Microcomputadores Ltda, que 
comercializa equipamentos da Prolbgica, Microdigital e Unitron, mu- 
dou-se para a Av. Brigadeiro Faria Lima, 1390/cj. 82-Jd. Paulistano, 
tel: (011) 814-0682. * A ABC Bull Telematic entregou d CTBC, 
Companhia Telefonica da Borda do Campo, o computador DPS-TL, 
com 4Mb de membria, 60 terminals de vfdeo, quatro impressoras de 
100 LPM e quatro unidades de fita magndtica. Esses equipamentos 
executam todos os servigos administrativos da CTBC, e possibilitam a 
agilizagao do atendimento aos cltentes. + A Tecnocoop Industrial 
langou no mercado sua linha 9000 de impressoras composts petos mo- 
delos TEC 901 1 e TEC 9015, com velocidade de 1 100 e 1500 LPM 
respectivamente. A empresa pretende comercializar esse ano 200 md- 
quinas dos novos model os. Em Sao Paulo, a Tecnocoop Industrial 4 
representada com exclusividade pela OPT Informatics, e no Rio maio- 
res informagoes sobre as impressoras da linha 9000 podem ser obtidas 
na prbpria Tecnocoop, rua do Carmo, 1 1/4P andar. * O Centro 6ti- 
co ComGrcio e Industria Ltda,, tradicional revendedor mineiro de len- 
tes de contatoearmagSo de bculos, inaugurou recentemente um show- 
room para vendas e demonstragoes de micros. Aldm de hardware, a 
empresa tambdm comerciard software (inclusive por encomenda), dard 
orientagao tdcnica e cursos noturnos de linguagem BASIC. Informa- 
goes pelo telefone (031 ) 225-2599, ramal 42, Belo Horizonte, MG. 
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DF incentiva 
criagao de soft 



DGT-1000 na escola 

A Digitus acaba de langar, para o DGT-1000, uma Unidade Con- 
troladora de Terminais Educacionais (UCTE) que permite a comuni- 
caggo e litre um micro central e 16 secundSrios atravfc da porta de 
cassete, visando inoentivar a utilizagao de seu novo equipamenro em 
centros educacionais, cursos monitorizados, escritdrios etc. 

O sistema permite ao instrutor, via computador central, carregar' 
prog ram as nas estates individuals, podendo aplicar provas e obter 
as respostas automaticamente gravadas nos disquetesde seu compu- 
tador para posterior avaliagao. Nas estagoes, os digitadores ou estu- 
dantes tamtam podem gravar programas diretamente no computa- 
dor do instrutor e ainda utilizar o seu equips mento independente- 
mente. 

A configuragao necess^ria para o DGT-1000 central 5 de 48 Kb 
de memdria e disk drive; os outros 16 micros podem ser de configu- 
ragSo minima, ou seja, UCP de 16 Kb e monitor de video. 



Ringo com impressora 



A Companhia de Desenvotvi- 
mento do Planalto Central — 
Codeplan estd para implantar, 
em Brasilia, uma software-house 
publica, que ir5 permitiraos pro- 
fissionais de software que n£o 
dispoem de equipamentos de- 
senvolver os seus programas, 
sem nenhum 6nus, em miquinas 
cedi das pelo governo do Distrito 
Federal. 

Para tanto, a Codeptah e$t5 
instalando um centro de proces- 
samento de dados que irdfuncio* 
nar 24 horas por dia, os sete dias 
da semana. Os gastos com im- 
plantagao e manutengao do cen- 
tro, tais como suprimentos, ener- 
gia entries, pessoal e seguranga | 
correrSo por conta do governo 
do Distrito Federal, enquanto 
que os equipamentos deverSo 
ser fornecidos pelos fabricantes, 
que tambdm serao responsive) s 
pela sua instalagao e manuten- 
gao. Esses equipamentos pode- 
rSo ser desde microcomputado- 
res ati terminais de video liga- 
dos a grandes computadores ins- 
talados remotamente. 

O sistema iri funcionar da 
seguinte maneira, de acordo 
com documento divulgado pela 
Secretaria de Governo do DF: 
qualquer cidad£o do DF, desde 
que cadastrado na Codeplan atra- 



vis da entrega de curriculum 
adequado, podari apresentar um 
projeto para o desenvolvimento 
de software aplicativo. Em pra- 
zo nunca superior a 72 horas, a 
Codeplan julgari se o projeto i 
aceitivei ou nSo e, em casoafir- 
mativo, indicari o equipamento 
e o horario que estarao reser- 
vados ao interessado, bem como 
o total de horas em que eie po- 
deri dispar do equipamento (es- 
se total poderi ser ampliado em 
ati 50%, a critirioda Codeplan). 
O software desen volvido seri 
propriedade de quem o desen - 
volveu e, ao tirmino da impte* 
mentagSo, a Codeplan analisari 
a sua viabilidade comercial. 

A criagao da software-house 
publica faz parte de um esforgo 
que o governo do Distrito Fede- 
ral vem realizando com vistas a 
estabelecer em Brasilia um p6lo 
de Informatics, sobretudo no 
que diz respeito d industria de 
software. No ano passado, den- 
tro do de um piano de moderni- 
zagao admin istrativa, o governo 
da capital federal gastou perto 
de Cr$ 2 bilhSes em produtos e 
servigos de Informitica, sendo 
que 60% desses recursos desti- 
nou-$e a contratagao de softwa- 
re-houses locais. 



A partir de agora, qualquer 
programs desenvolvido no Rin- 
go j£ pode ser impresso. A Ritas 
do Brasil acaba de colocsr no 
mercado a interface que possi- 
bilita a Itgagao do Ringo com 
impressora ou com mdquina de 
escrever elitrica. O Ringo pode 
tambim se comuni car com ou- 
tro computador do mesmo mo- 
delo por meio de telefone, atra- 
vi$ de Modem. E estSo dispo- 
niveis alguns cartuchos para o 
Ringo, entre Os quais 6rgSo, 
que faz com que o usuirio pos- 
sa compor e executar musicas a 



partir do teclado do micro; Ca- 
dastro, que mantim na memfi- ■v 
ria do equipamento todos os da- 
dos sobre clientes e fornecedo- 
res, e o Editor Z 80, para aque- 
les que quiserem desenvolver 
seus pr6prtos programas. A Ri- 
tas fornece tambim cartuchos 
virgens para os usuirios que qui- 
serem gravar programas originais 
em ERROM, entre outras coisas. 

0 Ringo tern uma velocidade de 
gravagao e leitura de fitas de 
2400 bps, bastante r£pida para 
um micro de sua faixa. 



Nova fabrica, 
novos perifericos 

A Elebra Informitica, ao completar cinco anos, apresentou sua 
nova fjbrica de periffiricos e comunicou o langamento de seus novos 
produtos. S£o etas: duas untdades de disco magnStico Winchester, 
uma de 340 Mbytes e outra de 515 Mbytes, e uma unidade de fita 
magn^tica Streammer, com densidade de 1600 a 6250 BPl. Alvaro 
Nascimento, Diretor da Elebra, defende a manuteng&s da reserva de 
mercado para que os investimentos em pesquisa prossigam. Ele afir- 
mou ainda que, de um faturamento estimado em Cr$ 150 bilhdes, 
para esse ano, cerca de 25% virffo da exportagffo de placas eletrdni- 
cas, vendidas para a empresa americana Control Data. Os diretores 
da Elebra garantem que no ano que vem os seus produtos jS xerSo 
pregos competitivos no mercado internacionai. Hoje a empresa ex- 
porta para a America Latina, mas pretende atingir tambem os mer- 
cados americano e europeu. 



Comunica^ao de dados 
cresce 90% em 1983 

A comuntcagao de dados foi o segmento que mais cresceu em 1983 
dentre os servigos oferecidos pela Embratei: 90%. De acordo com a em- 
press, os circuitos nacionais faturados, que totalizavam 1 mil 999 em 
1982, chegaram a 3 mil 649 em fins do ano passado, atendendo a cer- 
ca de 900 empresas espalhadas por mais de 200 localidades do pafs. 
Na area internacionai, os servigos Airdata, Interdata e Findata eram 
utilizados, em dezembro de 1983, por mais de 100 usudrios. De 1979 
a 1983, os servigos de cornu nicagao de dados apresentaram um cresci- 
mento anual m^dio de 1 79%, informou a Embratei. 



UNITRON A TODA FOR^A 



"Desconfie dos pregos muito baixos porque 
voce pode estar comprando material encalha- 
do ou de origem duvidosa." A advert§ncia 6 
do diretor presidenteda Unitron, Geraldo An- 
tunes, ao referir-seaos intimeros model os com* 
patfveis com o Apple tangados no mercado re- 
centemante. Segundo Gerafdo, estes novos 
equipamentos a pregos chamativos atingem 
principalmente o publico formado por pessoas 
f fsicas e profissionais liberals, o que vem a fir- 
mar ainda mais uma antiga posigao da Unitron ; 
dirigirseu produto ao setor prof issional . 

Dentro desta estrat£gia, a empresa jci estd 
colocando no mercado van os perifericos op- 
cionais, como drive para disquetes de 8”, te- 



clado profissional acrescido de numSrico redu* 
zido e um monitor de video fabricado pela. 
prdpria Unitron. A empresa estd fornecendo 
tamb£m a I inha compieta de expansoes para o 
seu equipamento, Incluindo □ cartao controla- 
dor de instrumentagSo, padrSo HP, que permi- 
te ligar o AP li a spare! hos como analisador 
de assinaturas e scanner , gerador de varreduras 
para controle de processos (ambos fabricados 
pela Hewlett-Packard). 

Entre os pianos para um futuro prdximo, 
a Unitron pretende aperfeigoar a Area grSfica, 
e neste senttdo estao sendo desen votvidos 
projetos de video a cores, software especffico 
para este setor e prancheta digitalizadora. A 
Srea de CAD 6 um outro setor onda a Unitron 



estd investindo, visando a obtengao de um 
acessbrio barato para desenho t^cnico e desen- 
volvimento de circuitos impressos, entre ou- 
tras apiicagoes. 

Disponibilidadede software para o seu equi- 
pamento 6 outra preocupagSo da Unitron, 
que no momento estd credenciando software 
houses com atengao voltada principalmente 
para as 6reas de transporte, educagSb, saude e 
hotel aria. "Nossa meta", explica Geraldo An- 
tunes, "6 p rover de software para as vdrias 
areas de aplicagao todos os pbntos de venda 
do AP M. Este 6 o melhor investimento de 
marketing que podemos fazer — software a 
baixo custo para o usu^rio", conclui. 
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Informatica em Ribeirao Preto 



Com a finalidade de oferecer 3$ empresas 
de computa$5b a oportunidade de exporem, 
com vendas diretas, seus produtos e serviqos 
no interior de S3o Paulo, o. SEN AC de Ribei- 
rSo Preto reatizou, de 25 a 28 de abril, a I 
Feira de Informatica da regiSo. A iniciativa 
objetivou ainda proporcionar ao publico con* 
sumidor e em geral a chance de conhecer, 
analisar e avaiiar os produtos e servipos ofe- 
recidos pelo atual mercado nacional de In- 
fo rmdtica, 

V3rias empresas estiveram presentes na 
Feira, entre elas a ProlAgica, Microdigital 
(que aproveitou a odasiffo para lanpar no in- 
terior do Estado o Iseu TK2000), Dismac, 
Digitus, Poiymax e Unitron. A grande atra- 



qSo, no entanto, ficou por conta da Memo- 
cards, empresa de Ribeirao Preto especial i- 
zada na revenda de microcomputadores e 
perifgricos que v£m sedestacando naprodugao 
de software para as 3rea$ comercial, de En- 
genharia Civil e, principalmente, educacional. 

Em seu estande, o maior da feira, a Memo- 
cards demonstrou o trabaiho que vem desen- 
volvendo em conjunto com os alunos do 
Coldgio Anglo, o qual tern resultado em uma 
sdrie de programas especi'ficos para a Area 
educacional, tais como: Mapa do Brasil, Ca- 
racteristicas dos Animais, Verbos a Estdrias 
em Ingigs, introdupao is Crases e Resumo de 
Vestibuiares para Microcomputadores . Com 



excessao deste ultimo, todos os demais pro- 
gramas desta 3rea n3o sao comercial izados. 

Paralelamente 3 Feira, realizou-se tambfim 
o II Simpdsio de Informatica, onde foram dis- 
cutidos temas ligados 3 evolugSo e perspec- 
tivas da lnform3tica no Brasil. Na oportuni- 
dade, Ademir Potiens, gerente do SEN AC e 
organizador da Feira,’ assegurou que, sendo 
Ribeirao Preto um importante parque comer- 
cial dentro do Estado, n3o pode ficar alheio 
aos progresses da Informatica, e declarou: 
"V Srias empresas da regiao j3 est3b na era da 
computae^o, mas ainda h3 as que precisam 
methorar o seu desempenho; esta 6 a nossa 
principal preocupacSb ao promovermos even- 
tos desta natureza". 







MICRO SISTEMAS, maio/84 



Antes de a [d Hear seu rico d inheir in ho, calcu/e, com seu micro da finha 
Sinclair, os juros, o montante ou o capita! de investimento. 



Para bom investimento, 
um micro pessoal basta 



Armando Oscar Cavanha Filho 



E ste programa, elaborado em um 
TK82-C, tem a fin alidade de cal- 
cular algumas varidveis financei- 
ras a partir de valores conhecidos. 
As varidveis pre vistas no programa sdo: 

. P — principal, ou seja, o capital no dia 
de hoje (capital no inicio da con* 
tagem dos perfodos de capitaliza- 
qSo); 

. S — montante, ou seja, o capital no fi- 
nal do periodo (capital no final da 
contagem dos peri'odos de capita - 
lizagdo); 

. N — mimero de peri'odos de capitaliza- 
$ao; 

. I — taxa de juros por periodo de capi- 
talizagao; 

. J — taxa de juros compostos emN pe- 
rfodos de capitalizable; 

. R — serie uniforme de pagamentos, ou 
seja, sdrie uniforme de valores de 
retirada ou entrada, sen do cada 
parcela entendida como no final 
de cada periodo . 

0 programa funciona de acordo 
com a tabela apresentada na figu- 
ra 1. 



COMOPROCEDER 



Veja agora, atravds de dois exemplos, 
como funciona o programa. 

1 — Quanto teremos daqui a 12 me- 
ses se aplicarmos hoje CrS 1.000,00 a 
2 ,5% ao mes? 



a) Sao dados: N = 12, P = 1000,00 e I 
- 2 ,5 ; deseja-se calcular S. 

b) Digita-se o eddigo que representa o 
problema (no caso, achar S a partir de 
N, P e I, ou seja, eddigo 0). 



DADOS 


CALCULA 


cQdigo 


PrUN 


S 


0 


S,I,N 


P 


1 


S,P,I 


N 


2 


S r P,N 


I 


3 


P,I,N 


R 


4 


R,I ,N 


P 


5 


RfPfl 


N 


6 


R,P,N 


I 


7 


R,I,W 


S 


8 


S,I,N 


R 


9 


R,S,I 


N 


10 


J ,N 


I 


1 1 



Figunt 1 



c) Intro duzem-se os valores na ordem 
pedida. 

d) Obtem-se a resposta: S = 1 344,88. 

2 ~ Um vendedor de carros apresenta 
um Volks usado por CrS 100 mil de en- 
trada, mais 12 prestagQes de Cr$ 50 mil. 
O pre 5 o & vista e de Cr$ 350 mil. Qual a 
taxa de juros do financiamento? 

a) SSo dados: P = 350.000 — 100.000 



= 250.000, N = 12 e R = 50.000; de- 
seja-se calcular 1. 

b) Digita-se 7. 

c) Introduzem-se os dados. 

d) Resposta: I " 16 ,94%. 



OUTROS EXEMPLOS 



3 — Quanto devo pagar hoje para ter 
o direito de receber CrS 10 mil daqui a 
cinco anos, a juros de 10% ao ano? 

S = 10.000 
N = 5 
1 = 10 

Resposta: P= 6209,21 

4 — Um empresdrio pretende fazer 
um investimento que render^ CrS 100 
mil por ano, nos prdximos 10 anos. Qual 

0 valor do investimento, sabendo que a 
taxa de juros 6 de 6% ao ano? 

R = 100.000 
N= 10 

1 = 6% aa 

Resposta: P = 736.008,71 

5 _ Quanto devemos depositar semes- 1 
tralmente numa conta a prazo fixo, que 
paga juros de 12% por semestre, para ter- 
mos CrS 50 mil daqui a sete anos? 

I = 1 2% ao semestre 
S = 50.000 

N = 7x2= 14semestres 
Resposta: R= 1543,56 

6 — Quais os juros mensais equivalen- 
tes a 34,4% ao ano? 

J = 34,4% aa 
N = 12 meses 

Resposta: I = 2,49% ao mes 
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Calculo de Parametros Financeiros 



10 REM "FINANCEIRO" 

15 JCLS 
17 PRINT 

20 PRINT "BSTE PROGRAMA CALCUL 
A ALGUNS" 

30 PRINT "PARAMETROS FINANCEIR 
OS 

40 PRINT 

60 PRINT " DADOS CALCULA 

CODIGO" 

70 PRINT " P,I,N S 

0" 

80 PRINT " S, I,N P 



90 PRINT " S,P,I N 

2 ” 

100 PRINT " S,P,N 1 



110 PRINT " P , I ,N R- 

4" 

120 PRINT " R, I , N P~ 

5 " 

130 PRINT " R,P,I N- 

6 " 

140 PRINT " R,P,N 1- 



150 PRINT " R,I,N S 

— 8 " 

160 PRINT " £ , I ,N R 

— 9 '■ 

170 PRINT " R , S , I N 

10 " 

180 PRINT " J , N 1 

11 " 

190 PRINT 

200 PRINT "PARA INICIAR, INTROD 



DZA O NUMERO DE CODIGO E NEWLINE 

210 INPUT COD 
220 CLS 

230 IP COD=0 THEN GOTO 360 
240 IF COD=l THEN GOTO 480 
250 IF COD=2 THEN GOTO 600 
260 IF COD=3 THEN GOTO 720 
270 IF COD=4 THEN GOTO 840 
280 IF COD=5 THEN GOTO 960 
290 IF COD=6 THEN GOTO 1080 
300 IF COD=7 THEN GOTO 1200 
310 IF COD=8 THEN GOTO 1410 
320 IF COD=9 THEN GOTO 1530 
330 IF COD=10 THEN GOTO 1650 
340 IF COD=ll THEN GOTO 1770 
350 IF COD>ll THEN GOTO 1870 
360 PRINT "INTRODUZA P" 

365 INPUT P 

370 PRINT "INTRODUZA I" 

375 INPUT I 

380 PRINT "INTRODUZA N" 

390 INPUT N 
410 CLS 

420 LET S=P*(1+I/100J **N 

430 PRINT "S=";S 

435 PRINT 

440 PRINT "P=";P 

445 PRINT 

450 PRINT " I=" ; I 

455 PRINT 

460 PRINT "N=";N 

470 GOTO 1890 

480 PRINT "INTRODU2A S" 

485 INPUT S 

490 PRINT "INTRODUZA I" 



495 INPUT I 

500 PRINT "INTRODUZA N" 

505 INPUT N 
530 CLS 

540 LET P=S/{1+I/100) **N 

550 PRINT "P=";P 

555 PRINT 

560 PRINT n S=";S 

565 PRINT 

570 PRINT "I=" ; I 

575 PRINT 

580 PRINT "N— " ; N 

590 GOTO 1890 

600 PRINT "INTRODUZA S" 

605 INPUT S 

610 PRINT "INTRODUZA P" 

615 INPUT P 

620 PRINT "INTRODUZA I" 

625— INPUT I 
650 CLS 

660 LET N=(LN (S/P))/(LN (1+1/1 

00 ) ) 

670 PRINT "N=";N 

675 PRINT 

680 PRINT " S=" ; S 

685 PRINT 

690 PRINT "P="fP 

695 PRINT 

700 PRINT " I = " ; I 

710 GOTO 1890 

720 PRINT "INTRODUZA S” 

725 INPUT S 

730 PRINT "INTRODUZA F" 

735 INPUT P 

740 PRINT "INTRODUZA N" 

745 INPUT N 



PUBUCAQ0ES PARA C0MPUTAD0RES 

sincdair - 



SINCLAIR E MARCA HEG6TRADA DE SINCLAIR RESEARCH LTD 



• apljca^Oes sErias PARA TK 85 E CP 200 

3? Edi(3o, atualizada e com nova composi^So grdfica CRS 9.000 

Quem i Sinclair? — Convertendo outros Basics — Contando os Bytes — Economi- 
zando Memoria — Fluxogramas — Top Down — Erros da ROM — Corthecendo a Im- 
press ora — Chaining Program as — Sub-rotinas era Cassette - Folha de Pagamento - 
Balance te — Corre^ao Monetdria do Imobilizado — Das Contribui^Oes do 1APAS — 
Contas a Receber — Cadastro de Clientes — Conta Banc Sri a — Correfdo de Provas — 
Processador de Textos — Estatfstrca — Cristas — Orgamento Domdstico — Ram To- 
per e Data File em Cbdigo - etc. 

• 45 PROG RAM AS PRONTOS PARA RODAR EM TK SIC E NE Z800 

S a Ediflo, reimp re ssa CRS 5.500 

Arquivos - Estoque — Plano Contibi) — Folha de Pagamento — Agenda Telefonica 
Ca;a aoPato - Trilha - Jogo da Velha — Forca — Dado — Tabelas — Tabuada — 
ConveisSo de Coordenadas — Mddia — Progressdo — Tabela Price — Fibonacci — De- 
preciaf So - Renumerador de linhas cm Chdigo — etc . . . 



• 30 JOGOS PARA TK82CE CP 200 

3? EdifSo CRS 6.000 

Dams — Labirinto — Enterprise — Golfe — Velha — Visit a ao Castelo Cassino — 
Roleta Russa — Corrida de Cavalos — Vinte e Urn — Cubo Mdgjco — Senha — Banco 
Imobilidrio — Forca — Dados — Invasores — etc. 

PROGRAMAS NOCOdICO DA MAQUINA 
InversSo de Video — Som por Software — Labirinto — Destrava Soft 

• CODIGO DE MAQUINA PARA TK E CP 200 

1? Edi s §o CRS 9.000 

Nome ms Bindrios e Hexadecimals — Arquitetura do 7.80 — Bditandoem Cridigo — 
Programs para Edifao — As InstrufSes do ZSOem Exempios Sub-rotinas da ROM — 
A ROM de 8K - Diciondrio das lnstru(5es - Hex X MnemOnicos — Rex X Deci- 
mal — Inciuindo os Programas Scroll — Save Display no Ram Top — Contadores de 
Pontos ou Tempo — Datafile — Renumber — Labirinto — som por Software — Mi- 
cron Pac — Bombardeio etc. . . 



Despachos para todos os Eslados mediants Ordem de Paoamentoou Cheque Nominal 



MICRON ELETRONICA COM. !ND. LTDA. 



Av. Soo Joao, 74 - Tel. (0123) 22-4194 - cep 12.200 - S. 1 Campos-SP 







PARA BOM INVESTIMENTO, UM MICRO PESSOAL BASTA 



770 CLS 

780 LET I=( CS/P) ** (1/N) ) -1 
790 PRINT "I="; 1*100 
795 PRINT 
"800 PRINT "S=";S 
805 PRINT 
810 PRINT "P = " ;P 
815 PRINT 
820 PRINT ”N=" ;N 
830 GOTO 1890 
840 PRINT "INTRODUZA P" 

845 INPUT P 

860 PRINT "INTRODUZA I" 

870 INPUT I 

875 PRINT "INTRODUZA N" 

880 INPUT N 
890 CLS 

900 LET R=P* ( (1/100) / (1- ( 1+I/I0 

0) * * ( -N ) ) ) 

910 PRINT "R=" ;R 

915 PRINT 

920 PRINT "P=";P 

925 PRINT 

930 PRINT "I=";I 

935 PRINT 

940 PRINT "N=";N 

950 GOTO 1890 . 

960 PRINT "INTRODUZA R" 

980 INPUT R 

985 PRINT "INTRODUZA I" 

990 INPUT I 

995 PRINT "INTRODUZA N" 

1000 INPUT N 
1010 CLS 

1020 LET P=R* ( ( ( 1/10 0) / ( 1- ( 1+1/1 
00) **{-N) ) ) **-(-1) ) 

1030 PRINT "F=" ,-P 

1035 PRINT 

1040 PRINT "R=“ ; R 



^ & . $ 

* ^ j& 

* c°>° 




PROLOGICA 

microcomputadores 



RE VEND EDO R AUTORIZADO 



1045 PRINT 

1050 PRINT "I = " ;I 

1055 PRINT 

1060 PRINT "N=";N 

1065 GOTO 1890 

1080 PRINT "INTRODUZA I" 

1100 INPUT I 

1105 PRINT "INTRODUZA P" 

1110 INPUT P 

1115 PRINT "INTRODUZA R" 

1120 INPUT R 
1130 CLS 

1132 IF R<P*I/100 THEN GOTO 2340 
1140 LET N=(LN (R/(R-P*I/100) ) ) / 
(LN (1+1/100) ) 

1150 PRINT "»==" fN 

1155 PRINT 

1160 PRINT "I=";I 

1165 PRINT 

1170 PRINT "P=";P 

1175 PRINT 

1180 PRINT "R=" ;R 

1190 GOTO 1890 

1200 PRINT "INTRODUZA R" 

1220 INPUT R 

1225 PRINT "INTRODUZA P" 

1230 INPUT P 

1235 PRINT "INTRODUZA N" 

1240 INPUT N 
1250 CLS 

1255 PRINT "SE O PROCESSAMENTO D 
EMORAR" 

1256 PRINT "MATS QUE 2 MIN CONSU 
LTAR O” 

1257 PRINT "AUTOR DO FROGRAMA" 

1258 PRINT "VIA MICRO SISTEMAS" 
1260 LET Q=R*N 

12 70 IF Q>P THEN GOTO .1300 
1275 CLS 

1280 PRINT "IMPOSSIVEL; REVEJA S 
EUS DADOS" 

1285 PRINT "PORQUE N*R TEM QUE S 
ER >P" 

1290 GOTO 17 

1300 LET IO=( (R*N/P) **£1/(N+1) ) ) 
-1 

1310 LET RO=(P*IO) /(l- (l+IO) ** (— 
N)) 

1320 LET Y=ABS (R-RO) 

1330 IF Y>01 THEN GOTO 1390 
1335 CLS 

1340 PRINT "1= 10*100 

1345 PRINT 

1350 PRINT "R=";R 

1355 PRINT 

1360 PRINT "P=";P 

1365 PRINT 

1370 PRINT "N=";N 

1380 GOTO 1890 

1390 LET 10=10+ { (R-RO) /R) *10 

1400 GOTO 1310 

1410 PRINT "INTRODUZA R" 

1430 INPUT R 

1435 PRINT "INTRODUZA 1“ 

1440 INPUT I 

1445 PRINT "INTRODUZA N" 

1450 INPUT N 
1460 CLS 

1470 LET S=R* ( ( { 1+1/100) **N-1 ) / ( 

1 / 100 ) ) 

1480 PRINT "S=";S 

1485 PRINT 

1490 PRINT ”R=";R 

1495 PRINT 

1500 PRINT " I = " ; I 

1505 PRINT 

1510 PRINT "N=";N 

1520 GOTO 1890 

1530 PRINT "INTRODUZA S” 

1550 INPUT S 

1555 PRINT "INTRODUZA I" 

1560 INPUT I 



1565 PRINT "INTRODUZA N" 

1570 INPUT N 
1580 CLS 

1590 LET R=S*(( (1+1/100) **N-l)/( 
1 / 100 ) ) **(- 1 ) 

1600 PRINT "R=" ;R 

1605 PRINT 

1610 PRINT "S=";S 

1615 PRINT 

1620 PRINT "I=";I 

1625 PRINT 

1630 PRINT "N=";N 

1640 GOTO 1890 

1650 PRINT "INTRODUZA R" 

1670 INPUT R 

1675 PRINT "INTRODUZA S" 

1680 INPUT S 

1685 PRINT "INTRODUZA I" 

1690 INPUT I 
1700 CLS 

1710 LET N=(LN ( ( S*I/ (100*R) ) +1) 

) /(LN (1+1/100)) 

1720 PRINT "N=";N 

1725 PRINT 

1730 PRINT "R=" ;R 

1735 PRINT 

1740 PRINT "S=" ;S 

1745 PRINT 

1750 PRINT " I = ” ; I 

1760 GOTO 1890 

1770 PRINT "INTRODUZA J" 

1790 INPUT J 

1795 PRINT "INTRODUZA N" 

1800 INPUT N 
1810 CLS 

1820 LET I=( (l+J/100) **(1/N)-1) * 
100 

1830 PRINT "I=" ;I 

1835 PRINT 

1840 PRINT "J=";J 

1845 PRINT 

1850 PRINT "N=”;N 

1860 GOTO 1890 

1870 CLS 

1875 PRINT "CODIGO =“ ;COD; '* ,INEX 
ISTENTE, " 

1880 GOTO 17 
1890 FOR M=10 TO 50 
1900 PLOT M,15 
1910 NEXT M 
1920 FOR K=15 TO 25 
1930 PLOT 10, K 
1940 NEXT K 
1950 FOR L=15 TO 30 
1960 PLOT 50, L 
1970 NEXT L 
1980 FOR Q=10 TO 15 
1990 PLOT 13, Q 
2000 PLOT 16, Q 
2010 PLOT 19, Q 
2020 PLOT 22, Q 
2030 PLOT 25, Q 
2040 PLOT 47, Q 
2050 PLOT 50, Q 
2055 NEXT Q 

2060 PRINT AT 10,3; "F" 

2070 PRINT AT 7,27;"S" 

2080 PRINT AT 16 ,14; "£ERIE""R ^, "" 
2090 PRINT AT 9 , 8 ; " 1= JUROS/PERIO 
DO" 

2100 PRINT AT 11,8;"N=NEDE PERI 
ODOS" 

2120 PRINT AT 14 ,26 ; "TEMPO" 

2300 PRINT AT 20,0; "PARA CONTINU 
AR DIGITE 1" 

2310 INPUT W 

2320 IF W=1 THEN GOTO 15 

2330 STOP 

2340 PRINT "ATENCAO, ERRO : R>P* 
1/100 SEMPRE" 

2350 GOTO 17 



Armando Oscar Cavanha Filho 4 Engenheiro MecSnico formado pda Universidade 
Federal do Parani. 
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RINGO R-470 CHEGOU A CIDADE. 

OS OUTROS MICROS QUE SE CUIDEM 





0 microcomputador Ringo R-470 e, disparado, o melhor em sua categoria E mais r^pido na execugao de programas, oferece amplas possibilidades de 
expansao e e o unico micro totalmente projetado e desenvolvido no Brasil, aprovado pela SEI - Secretaria Especial de Informatica 
Um verdadeiro heroi nacional. 

cartuchosou^itas taF C ° m ^ reso ^ ver P ro klemas P©ssoais ou profissionais, ou simplesmente para se divertir, atrav^s de Vcirios jogos disponiveis em 

Ali^s, cartucho e o que nao falta para o Ringo. Ele e compativel com todos os programas do famoso Sinclair e possui equipamentos perif6ricos 
exclusivos que ampliam muito a sua capacidade. 

Compare o Ringo R470 com os similares e comprove: nunca apareceu um micro pessoal tao profissional porestas redondezas. 



CARACTERl'STICAS TECNICAS: 

• Linguagem Basic e c6digos de mdiquina Z-80 

• 8 KBytes ROM expandivel para 16 K Bytes 

• 16 KBytes RAM expandivel para 48 K Bytes 

• Utilizdrvel em qualquer TV P&B ou cores 

• Conector para Joystick (jogos) 

• Teclado tipo QWERTY com 49 teclas e 155 fungdes ■ teclas de edigSo 
(movimentagdo de cursor e corregdo) com repetigSo autamditica 

• Exclusiva tecla de inversSo de video 

• Tela com 24 linhasde32colunas paratexto 



• ResolugSo grdfica 64 x 44 pixels (unidade grdfica), podendo atingir uma 
matriz de 256 x 192 quando utilizado com cartuchos 

• Cdlculos aritmdticos, fungdes trigonomdtricas, logaritmicas e Idgicas 

• Cartuchos “Instant Soft" (programas aplicativos em ROM - exclusivo) 

• Velocidade de gravagSo em fita cassete 2.400 BPS 

EXPANSOES: 

• Gravadorde EPROM paragravar, editarecopiar programas em cartucho 

• Interface para impressoraou mdquinade escrevereldtrica 
•Sintetizadordesons 

• MODEM (Comunicagdo telefdnica- 1.200 Bauds) 

• Pre$o sujeito a alterasSo 



A venda nas lojas especializadas em micros, 
foto-video-som e grandes magazines. 

N<k> encontrando o Ringo nestes locais, iigue para 
21 7.8400 (SP) ou (01 1) 800.8441 e 800.8442 (Outras 
localidades do Brasil). DDD gratuito. 

RINGO SMS’® 

O micro que aceita desafios. 

Ritas do Brasil Ltda. • DivisSo Informatica 
Telex (01 1)34673 Rita BR 








Qual o melhor micro? 



E sta e uma pergunta qua muitos 
leitores me fazem, difi'cil de res- 
ponder dada a crescente evolu- 
gao tecnolbgica da microinformdtica 
que a cada dia nos surpreende com equi- 
pamentos dotados de recursos mais e 
mais apurados. Mas podemos, hoje, ci- 
tar o Elite A/S , o qual venceu o 1 1 1 Cam- 
peonato M undial de Micros realizado no 
final do ano passado, cujos resultadosjd 
foram divulgados nesta segao (hd que 
considerar que o emparceiramento ado- 
tado foi o sufgo, o que dd azo ao fator 
sorte). 

Em testes realizados aqui no Rio, ele 
ligeiramente se imp6s por jogar melhor 
as aberturas, gragas d sua maior membria 
e leve superioridade na fase final. Em 
confronto com o Constellation , apare- 
Iho que custa metade do prego do Elite , 
o escore continua empatado depois de 
jogadas quatro partidas. Duas reldmpago 
e duas pensadas. Estas duas ultimas vao 
a seguir reproduzidas para que o leitor 
possa fazer seu prbprio julgamento. 

Elite A/S x Constellation 
Rio, marpo de 1984 

1 - C3BR P4D; 2 - P4BD P5D; 3 - 
P3CR P4BD; 4 - B2C C3BD; 5-0-0 
C3B; 6 - P3D P4R; 7 - D4T B2D; 8 - 
B2D C5CR; 9 - P3TR C3B; 10 - C3T 
B2R; 11 - D3C DIB; 12 - CxP(?!). 
Uma ousada entrega de duas pepas por 
uma torre e dois peoes. 12 — ...CxC; 13 
- BxP DID; 14 - BxT DxB; 15- C5C 
0-0; 16- R2T P3TD; 17-P4BC(4)5C+; 
18 - PxC CxP+; 19 - R 1C PxC. O Eli- 
te , afinal, nSto conseguiu mostrar o que 
queria com o sacriffcio do cavalo na 
12? jogada. 20 - PxP B3R; 21 - D3T 
D4D!; 22 - TD1R TIT; 23 - B5T(?) 
D4T ; 24 - T2B BID; 25 - BxB TxD; 
26 - PxT CxT; 27 - RxC D7T+; 28 - 
R3B B4D+; 29 - P4R D7D; 30 - 
PxB DxT; 31 - P6D D6R+; 32 - R4C 
P4T+ e as brancas abandonaram porque 
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Diagrama A - Posigdo 
depois de 32 — R4C P4T+! 
As brancas jogaram 33 — 
RxP DxPC; 34 - P7D 
R2T; 35 - FSB P3C+; 

36 - PxP PxP mate. 
Observagdo: cada micro 
dispunha de duas horas 
para cada 40 jogadas. 
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DiagramaB - Posigao 
depois de 16 - 0-0(?) 

TxP! Observagdo: cada 
micro dispunha de duas 
horas para cada 40 jogadas. 
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Diagrama C — Posigdo 
depois de 19 — BxB. As 
pretas anunciaram mate em 
quatro jogadas comegando 
com 19 - ...D5T!; 20 - 
B7B+ RIB; 21 - T1R 
T8T; 22 - R2C D6T mate! 



previram que levariam mate em quatro 
jogadas (veja o diagrama A). 

Constellation x Elite A/S 
Rio, marpo de 1984 

1 - P4D P4D; 2 - P4BD P3R; 3 - 
C3BR C3BR; 4 - C3B P3B; 5 - B5C 
PxP; 6 - P4R P4CD; 7 - P5R P3TR; 

8 — PxC. Comentando esta conti nuagSb, 
hd 30 anos, S. Tartakower declarou ser 
esta uma conti nuagao umpromising de- 
pois da seguinte sequencia: 8— ...PxB; 

9 — PxP BxP etc. 0 Constellation nao 
pensa assim. Bom, o resultado logo sabe- 
remos. 8 — ...PxB; 9 — C(3BR)xP DxPB; 

10 - C(5)4R DID; 11 - B2R P5C; 12 
- C4T T5T; 13 - P3B P4BR; 14 - 
P3CR T3T; 15 - CR5B B3D; 16 - 
0-0(?) TxP! e as pretas fragmentam a 
estrutura de peoes que protegia o mo- 
narca branco (veja o diagrama B). 

17 — CxPR(?j (as brancas estao deso- 
rientadas}. Maior resistbncia ofereceriam 
com P4B, o que jd deveriam ter feito no 
seu 169 lance. 17 — ...BxC; 18 — BxP 
BxP! As pretas rejeitam o ganho fdcil 



do bispo para ameagarem mate. 19 — 
BxB e as pretas (o Elite) anunciam mate 
em quatro jogadas (veja o diagrama C). 

CONTINUE JULGANDO 

Abente x Netto 
Paraguai, 1983 
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Solugao do problems 



Diagrams D - 
As pretas 
jogam e dao 
mate em seis 
jogadas. O 
Elite gastou 
4m 4s para 
encontrara 
resposta e o 
Super 9 
precisou de 
6m 8s. 
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NACETUS 

REDES LOCA/S 





* OBS. DIFERtNTES CPUS E PERIFERICOS DE SUA PREFERENC/A 







INEDITO NO BRASIL" 

A Cetus langa o CS-1000. Um 
nodo capaz de alimentar a 
vontade dos seus computadores 
realizando as fun^oes de 
comunicaQao indispensavel e 
minimizando os custos 
operacionais. 

O CS-1000 e uma dessas 
grandes ideias que chegam para 
ficar. 



O QUE E O CS-1000 

Como pioneira na 
implantagao de redes locais, a 
Cetus traz o CS-1000 para 
permitir a expansao ilimitada do 
processamento, antes realizado 
por um grande computador de 
capactdade limitada. 

Ele permite a interliga^ao de 
computadores, 
microcomputadores e 
perifericos, sem nenhum 
controlador centralizador de 
rede, fazendo com que as 
operates dos componentes na 
rede nao sejam prejudicadas 
pela falha de um ou mais 
elementos. 



Os nodos CS-1000 t§m, na 
fungao de interface, a 
capacidade de realizar os 
protocolos da rede, m6todo de 
acesso, integridade da 
comunica^ao, endere^amento, 
transferencia de dados, 
empacotamento de mensagens, 
controle de fluxo, temporiza^oes, 
detec^ao e recuperagao em caso 
de falhas, liberando os 
equipamentos usuarios dessas 
tarefas. 

O INICIO DA REDE 
POPE SER UM MICRO 

Para capacitar a rede em 
fun^ao da necessidade, os 
equipamentos adquiridos sao 
progressivamente interligados. 

O CS-1000 e um elemento 
inteligente que, ligado a rede, 
permite comunicagao 
simultanea e independente entre 
todos os elementos, dois a dois 
no minimo. Sua Rede Local vai 
crescendo a medida das suas 
necessidades at6 255 elementos 
(computadores, impressoras, 
terminals, discos, etc.) que se 
interligam atraves de um 
simples par de fios trangados. 



REDE LOCAL 
CETUS 

A partir de agora, com a Rede 
Local Cetus e o CS-1000, o seu 
sistema vai evoluir tanto, mas 
tanto, que o processamento no 
Brasil vai passar a ter duas 
datas. Uma, anterior, ao CS- 
1000, A outra, ap6s o 
surgimento da Rede Local 
Cetus. 

FILIADA A ABICOMP 



Rua Alte. Cochrane, 206 
Tijuca — Rio de Janeiro 
Tels.: (021) 284-7075 ou 
284-6659 

CetuY 






Esta d L C £*e pr09rama ?™ vai P ara os usuarios da iinha TRS-80: como reservar 
espapo na memona para carregar rotinas em Unguagem de maquina 



Abrindo espago para 
a linguagem de maquina 

Jose Ricardo Flores Rodrigues 



RINC 

2 LE 
LS4 

3 IE 

4 ' IE 
6,LS 

=L 

5 RE 

6 PO 

10 Y 

11 F 
NEXT 
SR ( 7 

12 D 
,91, 

13 D 
46,2 
15 C 
20 R 
25 I 
30 F( 
$<A$ 
T 

35 G( 
40 DJ 



Para 



V arios usuarios de micros da li- 
nha TRS-80 encontram certa 
dificuldade quando precisam 
reservar espago na memoria 
para carregar um programa em lingua- 
gem de maquina. A ideia corrente e que, 
se o computador ja estiver ligado, terd 
que ser desligado quando surgir PROTE- 
GEE para reservar a drea. Na verdade, 
porem, isto nao e necessario: basta utili- 
zarmos a fun f ao VARPTR - Variable 
Pointer Function. 



VARPTR nos permite encontrar a lo- 
caiiza^ao do indice de qualquer variavel. 
A partir dai, mandamos o computador 
calcular a sua localiza 9 ao e armazenar 




0 CLS 

ioS«67lM-'' 1234567890123456 

2 I=VARPTR (ST$) : ■ i = LOCALIZE 
0 DO INDICE DA VAR, ST$ 

3 lsb=peek ( i+i) j » LSB = byte 
OS SIGNIFICATIVO DA VAR, STS 

4 MSB=PEEK (14-2) ; 'MSB = BYTE M 
f SIGNIFICATIVO DA VAR. ST$ 

5 L- LSB 4- 256 * MSB: 'L = LOC 
I ZAC AO DA VAR. ST$ 

6 FOR Z=1 TO LEN(ST$) 

" CODIGO GRAFICO (128 
55) ; INPUT CG 

8 POKE L+Z-1,CG 

9 FRINT@4 7 0 , ST$ 

10 NEXT 



nossa rotina em linguagem de maquina 
dentro desta varidvel. 

Digite o programa que esta na lista- 
gem 1 para ver como funciona. Feito 
isso, digite RUN e entre com os seeuin- 
tes codigos: 



128 


156 


128 


136 


148 


251 


168 


159 


189 


159 


1 89 


251 


1 30 


171 


135 


1 75 


131 


251 


128 


176 


1 87 


1 77 


144 


251 


128 


1 60 


151 


181 


128 


1 28 



Voce acabou de colocar caracteres 
graficos dentro da string ST$. 0 codi- 
go 251 imprime 59 e spa 90 s em branco. 
De um PRINT ST$ e logo apos um 
LIST 1. Notou que coisa horrivelmente 
interessante ficou a variavel ST$ ? Para 
evitar que o conteudo do ST$ fique 
desta forma, utilize ST$ = STRINGS 
(30,0); e antes de continuar, entre com 
o seguinte: FOR A = 0 TO 800 STEP 
70: CLS: PRINT @ A, STS NEXT 
A partir do momento em que a ro- 
tina em linguagem de maquina estiver 
armazenada na memoria, executa-la 
num programa escrito em BASIC e 
bem simples se utilizarmos a fun^ao 
USR. Existem, entretanto, alguns de- 
talh.es que voce ja sabe mas que seu 
computador precisa ser informado 
atrav^s do programa. 



Voce precisa informar, por exem- 
plo, se estd trabalhando com disco ou 
fita. Experimente usar: 

CLS: IF PEEK ( 1 6396) = 

201 PRINT "NAO ESTOU 

COM DISCO I E VOCE SA 

BE" 

ELSE "CLARO QUE SIM 
SEU TOLO" 

Se voce nao possui sistema de disco, 
use o POKE nas posigOes 16526 e 
16527; caso contrario, utilize a funcao 
DEFUSR = L. Resumindo ; 

IF PEEK ( 16396) = 201 
POKE 16526, LS: POKE 
16527, MS ELSE DEFUSR 
=L 

E importante tambem trabalhar 
sempre ^em localiza 9 oes de memoria 
compativeis com a capaddade de seu 
computador, ou seja, IF L > 32767 
L - L — 65536. Alem disso, a constan- 
ts da string da linha 1 deverd ser sufi- 
dente, sempre igual ou maior que a 
quantidade de itens do comando 
DATA (da rotina em linguagem de 
ndquina). 



ce Cv iu 
em linr 




\ 1 




§1 




r 




Contrl 
Mala 
Con* 
T 
C 



r, 




40 
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1 DEPINT A-Z: CLEAR 100: ST$= ST 
RINGJ (30,0) : V=VARPTR (ST$ ) 

2 LS=FEEK(V+1) : HS=PEEK ( V+2 ) * L= 
LS+256*MS 

3 IF L>32767 L=L-65536 

4 IF PEEK (16396)= 201 POKE 1652 
6^LS: POKE 16527, MS ELSE DEFUSE 

5 READ DT: IF DT=990 GOTO 15 

6 POKE L,DT: L=L+1; GOTO 5 

10 Y=DSR (768+RND (10) ) : RETURN 
^ V F0R X=1 T0 15: Y=USR(768+X) : 
NEXT: FOR X=15 TO 1 STEP -1- Y=U 
SR(768+X) : NEXT: RETURN 

12: DATA 205,127,10,62,1,24,0,237 
,91,61,64,69,47,230,3 

11 ^ T ^i 79 ' 211 ' 255 ' 13 ,40,4,16,2 
46, 24, 242, 37, 32, 241, 2d, 990 

13 CLS: 'PROGRAMA PRINCIPAL 
35' A$= " fim " GOTO 130 

in G0SUB 11 : GOTO 20 

2° tr 1 T0 LB»(A*) : PRINT MID 

¥(A$,A,1);: GOSUB 10: NEXT: PRIN 

35 GOTO 20 

40 DATA "OI, TUDO BEM?"," 



Para terminar, rode o programa da 
listagem 2 e veja, na prdtica, como vo- 
ce deve agir para carregar suas rotinas 
em lmguagem de maquina. 




If* 

St 



50 data "cada vez QUE voce escut 
A ESTE BARULHINHO, ESTA’ UTILIZA 
NDO A", "LINGUAGEM DE MAQUINA ATR 
AVES DA FUNCAO ' USR* PELO COMAND 
O EM 

60 DATA "BASIC 'GOSUB' CONTI DO N 
A LINHA 30"," 



70 DATA " EXPERIMENTE RETI 

RAR AS LINHAS - 6, 8 E 10 DO PRO 
GRAMA", "’FORMULA 1' (MICRO SIST 
EMAS NR. 16, PAG. 50) E ENTRE cS 

80 DATA "LINHAS DE 1 A 6 DESTE P 
C NA0 ESQUECER DE 
ENTRAR com ’990’ NA LINHA 13 ) " 
90 DATA "O SEU MICRO PROVIDENCIA 
RA TUDO PARA VOCE. E ASSIM, NAO 
SERA" , "NECESSARIO DESLIGA-LO PAR 
A RESPONDER PERGUNTAS COMO : " . 

100 DATA "1"," ’READY?’ 



110 DATA "l",’ 
R 1 " 

120 DATA "FIM" 
130 GOTO 130 



' PROTEGE 



Jos6 Ricardo Flores Rodrigues 6 formado 
em Administragao de Empresas e Ciencias 
Contfbeis pe/a Facufdade CSndido Mendes 
RJ. ' 








PROGRAMA 



A Nasajon Sistemas, uma empresa 
especializada.no desenvolvimento de 
programas, esta lan<pando no mercado, 
em carter excl us ivo, um completo 
sistema de Folha de Pagamento para 
microcomputadores dos tipos 
DGT 1000, CP 500, TRS80 e outros. 
Relator ios emitidos: Rslapao de Em- 
pregados, Quadro de Horarios, Folha 
de Pagamento, Resumo da Folha, Re- 
lapSo de FGTS, Guia de FGTS, Rela- 
?ao de I.R., Guia de IAPAS, RelapSo 
p/Banco, Recibo de Pagto., etc. 




PREgo 

EM ORTN'S 

Controls de Estoque on " 

Mala Direta c/ Ed. Texto 25 

Contas a pagar/receber 15 

Tesouraria (c/saldo bancdrio) ik 

Credidrio 
Contabiltdade 

VoeS encontra esses e outros programas em ftossos 
reyendedores credenciados. 



r i — ■ 

**^*&i*$S&f ^Jnci/CMOA 

40 ,<£i'. ^ ^ /utemQ/T ^ 







EQUIPAMENTOS 



it#® mm finomio ■ HBFlen 

ciBEsma^aas 

VENDO dlliyil ^Pro 



• Vendo APPLE II PLUS, language 
Card 64 K, Drive, US$ 5000 em 
Prog, prego 310 ORTN — Josias 
(021) 551-8350 - RJ. 

• Vendo disquetes Verbatim-Da- 
talife 5 1/4, tenho v/irias caixas 
com 10 cada. Tratar com Jorge 
Luiz Mara, Rua Tim6teo da Cos- 
ta, 444/804, tel.: (021 ) 274-5329, 
RJ. 



PIVERSOS 



• Vendo micro de bolso Sharp 
PC-1500, linguagem BASIC, inter- 
face pars 2 cassetes e plotter com 
4 cores e 9 tipos de caracteres. Na 
embalagem e com manuais. Tel.: 
(011) 240-4140, Sao Paulo. 



• Troco TK 85 com 16K, joys- 
tick, gravador National, Mobyllet- 
te, 11 fitas com jogos, 2 livros 
com aplicativos e jogos de video 
(TV P&B) por CP500, ou por 
Color 64 excluindo video. Tratar 
com Carlos a parti r das 7 hs em 
dias uteis, tel.: (01 1 ) 421-4610 ou 
421-4613. SP. 



• Traduzo programas das Tl pa- 
ra BASIC do CP-500, CP-200 e 
compatfveis. Traduzo, tamb£m do 
BASIC, para a linguagem das Tl 
desde que nSo exceda a memdria 
de programagao. Tratar com Hdlio 
da Silva Araujo, Rua Des. Souto 
Maior, 244, Centro, Joao Pessoa, 
Paralba, Cep 58000, ou com Sr. 
Neflton, tel.: (083) 221-9524 - 
hortirio comerciai. Desen volve- 
mos, tambdm, soft nas dreas co- 
mercial e de engenharia. 



• Gostaria de entrar em contato 
com usu£rios dos micros TK NE 
ou CP, para fundarmos o Micro 
Clube Natal, pars troca de iddais, 
programas e informagoes. Tarcf- 
$io Torres de Sousa, Rua Joaquim 
Manoel, 801 , Petrdpolis, tel. : 222- 
4891, Cep 59000, Natal/RN. 



•a pro-informAtica, siste- 
MASCONSULTORIA ETREINA- 
MENTO oferece regularmente cur* 
sos de COBOL, BASIC, BASIC 
AVANCADO e ASSEMBLY com 
turmas reduzidas. AI6m das aulas 
pr£ticas, os alunos dispSem dos* 
computadores com assistSncia de 
monitores em hor^rios extra-aufa. 
RUA JOSAFA BELO 100-337- 
8792 - CIDADE JARDIM - BE- 
LO HORIZONTE. 



• Gostaria de entrar em contato 
com possuidores de TK, e compa- 
ti'veis, para troca de iddais, infor- 
magoes e programas, (aplicativos, 
jogos). Robson D. Klein: Rua 
Vereador Adao Rodrigues de Oli- 
veira, 524, tel.: (0512) 934-285, 
Cep 93.300, Novo Hamburgo - RS. 



• O CB1 - CENTRO BRASILEI- 
RO DE INFORMATICA promove 
para os meses de ABRIL/MAIO os 
cursos de BASIC, BASIC AVAN- 
CADO, MUNPS, COBOL, FOR- 
TRAN, ASSEMBLER, MANU- 
TENCAO DGT 100/1000. Tur- 
mas reduzidas, certificado de con- 
clusao e aulas pr^ticas. Informa- 
gdesnaAv. Passosn? 115 Sala 215 
ou pelo telefone 233-1123. 



• Radio amador : vendo interface 
para RTTY para os micros tipo 
Sinclair (TK 82/83/85 e CP -200). 
Informagoes com PY2-EMI, Rena- 
to Strauss, Rua Cardoso de Almei- 
da 654/32, Sab Paulo, Cep 05013. 



SOFTWARE 



• Vendo ou troco Programas 
para computadores compatfveis 
com o TRS-8Q Modelos I e III, e 
computadores de I6gica Sinclair. 
Escreva para Carlos Seleri, Av. 
Sernambetiba, 3.600 B1 3/103, 
Rio de Janeiro, RJ, Cep 22.600. 

• Troco /compro ou vendo pro- 
gramas para TK; aos interessados 
escrever para: Sylvio Padilha Jr., 
Rua 41 -C, 139/41, Volta Redon- 
da, RJ, Cep 27.180. 

• Vendo fita com programs infi- 
dito do jogo "General" (poquer 
com dados), para micros Sinclair 
com 16K, Mandar cheque nomi- 
nal de Cr$ 7 mil para Silvio 
Rauth, Cx. Postal 8546, Cep 
80.000, Curitiba, PR, tel.: 254- 
2881. 



• Executamos alta resolugao 
gr^fica na I inha Sinclair: TK82-C/ 
83/85, CP-200, ZX81 , Timex Sin- 
clair 1000, etc. Prego de langa- 
mento Cr$ 35 mil. Acompanha 
soft explicativo. Paulo Roberto, 
tel.: 352-2710, ap6s as 14 horas, 
RJ. 



• Gostaria de contatar com pos- 
suidores de TRS 80-Color para 
troca de id£ias, programas, ma- 
nuais e dicas. Dirija-se a Jos£ Al- 
berto Cadais, Ql 23 conj. 17 Casa 
01, Lago Sul, CEP: 71600, Brasi- 
lia, DF. Tel.: (061 ) 571-1429. 



• Consultas sobre BASIC ou 
Assembler do Z80, Cx. Postal 
57.041 Rio de Janeiro/RJ. 



• Quero entrar em contato com 
possuidores do TK-2000 Color 
para troca de programas e dicas. 
Tratar com Jorge pelo tel.: (071) 
231-1227, ou pelo enderego: 
Alameda das Cajazeiras, 43, Cami- 
nho das Arvores, Cep 40000, Sal- 
vador, Bahia. 



• A MIKRO INFORMATICA con- 
tinua oferecendo com sucesso os 
seguintes cursos: Informdtica p/jo-’ 
vens, Operagao e Programagao de 
microcomputadores, Linguagem 
Basic e Basic Avangado. Inscrigoes 
e Informagoes d Av. Af. Pena 952/ 
522 Tel. - 222-3035 BH/MG. 



CURSOS 



C LUBES 



* Brasil Micro Clube, o maior 
clube do Brasil para usu^nos de 
todos os micros. Grandes vanta- 
ges e descontos para nossos asso- 
ciados. Associe-se gratuitamente 
atravSs da Cx. Postal 40088, Rio 
de Janeiro, RJ, 



• O SEN AC estd promovendo, 
de 1 1 a 19 de junho, o curso Im- 
plantagao do Microcomputador: 
novo enfoque tecnolbgico e 
administrative. Esse curso 6 desti- 
nado a empresdrios, executivos, 
analistas de O & M e analistas de 
sistemas. Informagoes na Rua Dr. 
Vila Nova, 228, 2? andar, fone: 
(01 1 ) 256-5522, Sao Paulo, SP. 



• Em Niterbi, a MICROWARE 
Inform^tica e Eletronica promove 
regularmente cursos de Introdu- 
gao aos Microcomputadores, *de 
linguagem BASIC e Assembler, 
com aulas pr^ticas em equipamen- 
tos DGT-1000. As turmas sao li- 
mitadas em 12 alunos. O material 
did^tico 6 gratuito e 6 fornecido 
certificado. Inscrigoes e informa- 
goes na Rua Moreira Cdsar, 229 — 
sala 1713, Shopping Icaral, Nite- 
r6i, tel.: (021 ) 710-2780, RJ. 



• A FAAP oferece regularmente 
cursos de BASIC Bdsico (27 ho- 
ras) e Avangado (45 horas) nos 
TK 85, CP-200/300/500 e Junior 
Itautec. Hor^rios pela manhS, tar- 
de e noite. Maiores informagoes 
pelo tel.: (011) 66-2147 ou 
826-4233, ramal 59, Sao Paulo, 
SP. 









^ QUEM MANDA 

NESTA PAGINA SOU EU! 



Apoiado! Equipamentos, Software, Cursos, Clubese Di versos: 
voca 6 quem decide o que, quando e como anunciar nos 
Classif icados MS. Quanto voc£ terS que pagar? Isso tambdm 6 
dscisSo sua. P rests atengao: 

• cada I inha de texto (30 toques, incluindo os espagos em branco) 
custa Cr$ 2.000,00: 

• linhas incompletas serao cobradas como inteiras; 



• o prdprio anunciante deve checar o valor de seu antincio com o 
nlimero de I inhas que ele contiver; 



• o antincio deve vir acompanhado de um cheque nominal i ATI 
Editors Ltda; 

Os textos devem ser datilografados ou escritos em latra de forma, 
obedecendo as 30 batidas por I inha. Veja um exemplo: 



Vendo DGT-100 com 32 



R A M t v l 



d e o 



c o m Marco s 



gravador cassete* Tratar 
rcos, t e 1 : ( 0 T 2 " 1)267-0332* 



_ _YWcro 
Slstemas 



Maiores informagoes pelos telefones; (021) 262-5259 — RJ ou (011) 853-7758 — SP. 
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DEFENSE COMAND 



SCARFMAN 



Voc§ s6 descobre o quanto precisa de um Micro-Com- 
putador JR da Sysdata depois que o conhece de perto. 

Voce vai ter certeza de que fez um 6timo neg6cio ao 
adquiri-lo assim que o colocar na sua empresa ou na sua 
casa. 

0 JR da Sysdata 6 r£pido, 6 vers£til, 6 compacto. 

APL1CAQOES: 

Contabilidade, controle de contas a pagar, controle de 
contas a receber, folha de pagamento, controle de esto- 
que, controle de clientes, relat6rio de clientes, mala direta, 
c£lculos de orcamentos financeiros,controle de processos 
industrials, c£lculos de engenharia, c£lculos de estatfsti- 
cas, funcoes matem^ticas, funcoes Ibgicas em cadeia de 
caracteres (STRINGS), gr£ficos, jogos animados, progra- 
mas educacionais. 

O JR PERMITE AINDA: 

0 acesso a grandes sistemas de computagao, a comuni- 
cacao entre os departamentos de Empresa, efetuar pro- 
gramas especificos para cada Empresa. 

E, como se nao bastasse, ele 6 o Micro-Computador de 
manor prego do mercado. 

Com todas as qualidades que tern, o JR da Sysdata nem 
precisava ser tao econbmico. Mas 6. 

Afinal, ele 6 o mais completo Micro-Computador de sua 
geracao. 

Inclusive no prego. 

Voc§ pode testar estas e outras qualidades do JR em 
qualquer dos nossos revendedores. 






n 



JR 



DANCING DEMON 



Microcomputador pessoal 



mm @ ^ZefTuTAsoo 






Dommd 6 um jogo que anda meio esquecido por a/. Mas o seu micro TRS-80 o redescobriu 
gostou e quer desafti-fo para uma partida (com direito a musiquinha e tudo) 




Domine o micro 
no domino 



Everton Pereira 



Q uanto tempo faz que voce 
nao disputa uma partida de 
domin6? Se d por falta de ad- 
versdrio, eis aqui a sua opor- 
tunidade de enfrentar um ad- 
versdrio inddito: seu micro 1 E voc6 terd 
ainda uma grande vantagem: ele nSo d 
nada temperamental. Se voce o estiver 
vencendo uma partida, ndo correrd o ris- 
co de seu adversdrio esbarrar na mesa de 
jogo e, sem querer , espalhar as pedras. 

Este programa pode ser rodado em 
qualquer micro compatfvel com o TRS- 
80 modelo III. Quanto &s instrufSes de 
jogo ndo hd muito o que dizer, uma vez 
que, aldm de ser um jogo muito conheci- 
do de todos, ele d auto-explicativo, ou 
seja, a cada jogada o micro lhe dird o 
que fazer para prosseguir. 

Fica a sugestSo para que os leitores 
fafam modi fica foes no programa. Por 
exemplo: vocds podem alterar a tonali- 
dade e/ou ritmo do som ou criar dife- 
rentes nfveis de diflcuidade para o jogo. 
Eis aqui duas dicas : 

I) o enderefo 30007 (vide linha 5010) 
determina a tonalidade do som que 
acompanha a impressao da palavra 
DOMICRO.^podendo variar”de 0 a 225 
(do agudo para o grave); 
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2) caso o leitor ache o programa muito 
extenso poderd reduzi-lo suprimindo as 
linhas 5010 a 5030 e 9510 a 9570 (sub- 



rotina de impressdo da palavra DOM1- 
CRO), criando entgo a linha 4050 GO- 
SUB 8400: NEXT: U= 52. 
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Formado am GSncias EconOmicas, Everton Pereira 6 fuodonirio do Banco do Brasil, agSncfa d 
dTum CP-^O ^ 9 ' SR Aprendeu a lin 9^gem BASIC num NE-Z8000 e atua/mente 6 usuirh 




0 POKE! A526 , 48 s POKE 16327 r 117 8 RANDOM 

^ Fkp‘?2 1 Sn°^ E ^ N L I,DEFSTR SsDIM8P<3A)»DIM IE<4> 

c.0 F0RIB = 30 TO 3itF0R IA=i TO 5«READ ICi SP < TB > «SP < IB ) +CHR* r rn e m 

ir-ss ™ s 4 ?Por 

AD IC s BP ( IB > “SP ( I B )+CHR%( IC ) INFXT I NEXT 

151 >+CHR5< 1:31 > + CHR$(~i7i> SSF-CHRK 149>+GHRS(32>+CHR*(i 

70MSQ*CHRi<1.57 ) +C M R9>( l 4D)+C H Ri( 1 74 > « SH =CHR*<i01)+ CH R$ < i76)+C H R5 

c?s^Os5B4SS?t^D??p°^{ READ IB8P ° KE I A, IB *NEXT* IB=>30* IW*«5* IK*«0t 

A 8 ?Tv^i)fc. 1 L TH B«*r RINT8,654 ' ,,voc:e ' qUG p o i b tem o dubt* 6 / 

* *!* 2>ELSE PRINT3652 r "S0IJ EU QUE COMECO P0I8 TENHO O DUBLE 6 / 
6 UY B 1 

200D^EXT SrC " 30eIH " !5,IWOlH,lt< “ 0 ‘ IEn) ‘' i,IE<3> " rE<UlF0R lAai T0 

2 rr ?^« iY TSru U rB 1 ?^°'? 000,IF1L>l AND ITl ° IP ™EN XT-i4tIP«i4 ELSE 
” IP“i4#-i»(lP >IT> « IT®14#-H*< IT>«IP ) 

TR I ml ( 1 * J H t» ?" INT * 645 - STR INS* < 23 , > "EU BANHEt"S 

!Le,LlF L8E IF IP ® 14 AND IP > ITTHEN PRINT3645, STRING® (22 
» * * VOCE GANHOU"STR ING£(22, ) ■ ELSE IF IT*i4 AND IPnTT THFNPR 

i^ 8 S: S ' 8TRIN0,<a2 '"*"»"EWATAM0s'sT«lNM<2i,»r-?, 

. 0 PR INT3773 , 5TRTNG*(55," IT.14 OR IP«i4 THEN 6Q0 ELSE D 





OTO 213 — — — — — — 

f? 0 . I ^ U ^ < ^ >,F0R l * ai T0 33 s NEXTsPRINT3786,STRING3i<2? 32)jsF0R 

JNKEYsf IF 8 P ( 29) o I2- B Siart V 2Sr-.2V eR J ° QAR N 0 VAME NTE?S/N" , ! SP ( 29 
"S" THEN RUN S AND SPf29) °" N " ™EN 600 ELSE IF SP<29>* 

1200 NEXT « RETURN 

ELATA^A^LdR A^A 'sFR * ! VEZ » DIGITE A LETRA CORR 

DlSm ARENAS EN?I5^ 0GA ,a774/DA> SE V ° CE MA0 ™ ER P/J0BAR ^ 

flL!lLll < f?p“JI!5fI*Ai F ,,^f a9>,i, " W THEN 2020 ELSE ™«ASC<SP<29)>-64 
IL 1 IF mi4 OR IV<1 THEN RETURN 

>"a?in <29> ‘ E " ,IE<2> " VAL<MID * <sp<Ivni ' i>> * 1E<4) " WAL<MID * <sp< ^ 

E?°? AND^IE >IF?? > > tf^tv > ^* D *E<3> < >IE<4> AND IE(i)OI 

ETURN AND IE(c * ><>IE<3>> then IY“2 THEN 1200 El.SE IF IY*i THENR 

*> else «-n-i.p«iH T 

3 Z?L?L X f <i><>IE<3> A ND< IE(2)«IE(l> OR IEO ) *IE<4 ) ) THEN SP(IU> 

3800 D rFTF?d^iL? aI5 E 2»?L? J " 4 T0 50»NEXTJIJ=USR(0> IQ0T0 3750 

sI SosSb loMwlLTiA? £ " THEIi G0SUB «0flE<t..,E<2> EL 

3900 SP ( IV) »"#" i RETURN 

4010 IP-15BIT-1 »F0R IA»i TO 28 

4020 IC=RN0<2) 

S'SW^rWpiKif US ll?o ^o T>,IT ' ITM EISE IF ,P< ” ™ E 

4040^ IF SP ( IT-i >=>"66" THEN IY*IT-1 ELSE IF SP (IP-1 > »"64" THEN IY 

00SUB 8400 » NEXT 8 IA*327« 2B*IAs IH»Q «P0KE30007 30 
5020 FOR IC-1 TO 4*F0ft IU-0 TO 6+3*(IH-3 ?SeAD IH.IF IM< >32 THEN 

PRINT0rA+IU,CHRt<IM>,«IJ»UB«<a> 1,1032 THEN 

HEN^SOfiO^ELSE^ I * IH b IH+1 I IB“IB+8+3*< IH“4> HA“IB»IF IH<7 T 

7017 FOR I A=0 TO 5«G0SUB 9300 1 PR INT096& . ""sNFXT*GOSUfi 93 nn»PDTfcin 

9 c?or!3ie/ce PEDRAS " !D0S IJB 9300 s PR INT8966 , "" « GOSUB 9300 a PR INTa 9 <£S 
, STR INQS ( 55 , i 40 > • GOSUB 9300s PR INTD989 "SUAS PEDRAS"aFrte .&■< T * 

2i i GOSUB 9300 « PR INT3966 , ”"t NEXT s GOSUB 9300 s PR INT3965 , STR INGS ( 55 , " 

7040 FOR I A n i TO 50GOSUB 9300 s PR INT3966 ""sNEXTs POKFannn? •inter, o 

onnn°». 13 it IA ' M3:D * <SP<IA/,4> » 1 ' 1 >"/"'HIDS(SP< IA/4) ,2 1 ) , I NEXT ■ RETURN 
6000 XL-D.IF tO-10 THEN 100=10-0 ELBE IF 1070 THEN !2I15"oB 

noSn 10-10 OR 1070 THEN IH*IH*<-1) 

8200 IK“ICs IZ«Qs IM»I0«D0T087DO 

8400 IL-OSIF IB»-iO THEN IB*0»IB«832 ELSE IF IB*70 THEN IB*60«IQ 

8500 IB*IB-IU»IF IB»-iO OR IB*7Q THEN IW«IW#<-i > 

8600 IK«XB»IZ»0*IM B IQ ° 

H7?n retJv 1:2 “ <If< - 6 ° ) ''5 ELSE IZ«ABSaK/S> 

AND IK<AD THEN 8800 ELSE IF IM<827 THEN 10*2 + 320*17 
oonn ( JV® 0) *OOT08900 ELSE IG*642-320*IZ-5 b*( IK >50) sGOTO 8900 
8 ??° 1 J“USR<D> »PR INTflIK+IH,SP <30> jSIK+IM+64 SP < 31 ) « 8IK+IM+ 138 RP 

19°°SP( l 34? R a?f!l^I N «^I? P « 33>,S!1G+64F8P<34) > ai6+12B P SP <35>»0IQ+ 
o-on ^a^ E 3 DD 07 » 1 J,aJ “ 1 J- 3 , 1 Z-UBR{O>IRETURN 

9 ^ 9G GA ^ A ^ f 0 , 2 i 4 , 2 , 2 1 1 , 254 , A , 30 . 1 6 , 254 43 120 161 32 **39 ini 

9500 DATA-00'' r -li^ r *2a-^33- r -44" r -5S^“26- "0l“ "02" "03? "nS" 

05 , "06" » " 1 2 " , " 1 3" " 1 4" " i g« pp i , jf/ "23" "% A I> ° 2 5 - "Li SLi 

, "36" f w 45" , "46" , "SA'" . ’ ' 7 5 ' 26 ' 34", "35" 

9510 DATA 191 r 159, 143, 143, 143, 109. 144 191 <40 isb «»>q 130 <o< *a 

rm D ?I? S» St.Bn.i4 

T » 1 “ 1 F i'RT f le!o , 120 , 128 . 1 91 . 149 . 191 149 128 12H 12B 4 0 4 « AO r 
9550 DATA 134,159,143,143,143,143.133,191 149 128 128 l^a 4 -»o < n 

3 5 19I D |?1 

i:*: El3i ' 19i » i51 Fl 29 rl28, 191, 149,128. 138, 175 17A 17A 
J t D 128 P 128 r 128 ' 191 ^ 149 " ^^ 9f l2 ®» 1 ®® f!20, 191,14® 

MICRO SISTEMAS, maio/84 







TECNOLOGIA 

EFICIENCIA 

SERIEDADE 

a servigo de sua 
empresa v 

e 

\ **„.**£ 



“FILIADA A ASSESPRO.” 



POSSUIMOS PROGRAMAS 
DE ALTO DESEMPENHO 
PARA 

MICROCOMPUTADORES. 



Area administrativa 

- Contabilidade 

- Ativo Imobilizado 

- Refat6rio Gerencial 

- Mala Direta 

- Contas a Receber 

- Contas a Pagar 

- Controle Bancdrio 

- Controle de Estoques 

- Folha de Pagamento 

- Faturamento 

- Editor deTexto 

Areaeducativa 

- Learning English 



'OT&Ptf- 

*7/7/7“ 



Avenida do Contorno 6656 
L| 19 Belo Horizonte 30000 
(MG) Tel: (031) 223 4133 

Estamos credenciando r*vend»dor«s 
• repr«s«nfant»s *m todo Brasil. 




DocumentacSo de 

SOFTWARE 




EDITORA CAMPUS 



LOMAX, J. D., DocumentacSo 
dc Software, Editors Campus. 

H Este livro se destina a qualquer 
ieitor interessado na fabricagSo 
(desenvolvimento, fornecimento e 
manutengffo) ou no uso de produ- 
tos de software. Os primeiros, ele 
auxilia na complexa tarefa de ela- 



borar instrugoes que possibilitem 
uma utilizagao ampta e eficaz de 
seus produtos; aos usuiirios, ele 
mostra a importancia dessa docu- 
mentagao como parte essencial do 
software, apohtando-lhes os as- 
pectos que deverSo levar cm con- 
ta durante a selegao do software, 
ou que precisarao discutir com 
seu futuro fornecedor. 

Os tres capitulos iniciais anali- 
sam separadamente cada um dos 
tipos de manuais e o ultimo deles 
ensina a elaborar textos que pro- 
piciem uma comunicagao simples 
e objetiva entre clientes e fabri- 
cates. 

ALVES, A .,Programapao, Editors 
Atlas. 

B Este livro 6 pioneiro no trata- 
mento da tecnica de programagao. 
Nao 6 um texto sobre linguagem 
de programagao ou an^lise de sis- 
temas e sim sobre os problem as 
operacionais vinculados & codrfi- 
cagao, aos testes, a depuragSo de 
erros e 5 documentagao. 

O autor dividiu o livro em cin- 
co capitulos. 0 primeiro trata dos 
Projetos, onde se ensina a elabora- 
gao de fluxogramas dentro das 
normas da ANSI/70. O segundo 












227-7417 

267-9261 






EMPAER 



ALOISIO P1NTD ALVES 




TESTES 

mufti) 

EH ERROS 
> DQCUMEHTAQAO 



capitulo 6 dedicado & Codifica- 
gSo, contendo topicos relaciona- 
dos com a clareza de um progra- 
ma, e no terceiro vem os Testes, 
apresentando sugestSes para loca- 
lizagao de erros. No capftulo 4 4 
apresentada a DepuragSo de Erros 
e no capftulo 5 a Documentagao, 
com informagQes sobre a final ida- 
de e leitura do programs. 



CARLOS ALBERTO C. ABREU 

^ 17 programas 
pares linhtt 



etapas do pianejamento estrategi- 
co e tdtico. 

O quinto capftulo ressalta as 
provid§ncias a serem tomadas na 
parte organizational e na tecnica 
e, finalmente, o sexto trata do 
controle do pianejamento. 



|iVTK MCOAAW MILL 
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ABREU, C. A., 77 Programas para 
iinha Apple , Edigao Micro-Kit. 

BEste livro serve como texto 
did4tico para aqueles que estaoco- 
megando a programar em BASIC 
e tambSm como material de apoio 
para os estudantes de IP e 2. 
graus. Com ele, al£m de passar flo- 
ras divertindo-se com seu compu- 
tador, voefi poder& observar, com 
o auxflio dos comen t^ri os, como 
sao construfdos os programas e a 
sua I6gica. 

AI6m de jogos, o livro traz vd- 
rios programas educacionais como: 
Deco.mposigSo de fatores primos, 
Como calcular a Srea de um po<»' 
gono; Mfitodo de Simpson; Ope- 
ragoes de vetores; Dlvisao de dois 
nCimeros; Plotagem de curva e 
outros, os quais the darSo a opor- 
tunidade de estudar Matem^ttca 
atrav^sdo computador. 



Cl ARC I A, S, Construa o seu 
ordprio computador usandoo 
MP-Z80, Editora McGraw-Hill. 

B Este guia pr^tico mostra como 
construir um computador baseado 
no fa mo so micro pro cessador Zi- 
log Z80. A descrigao enfoca um 
microcomputador b^sico em placa 
unica contendo 2Kdesistemaope- 
racional, portas serial e paralela, 
display hexadecimal e armazena- 
gem de massa em fita cassete. Ca- 
da subsistema do computador 6 
completamente explicado e calca- 
do em informagoes provadas e 
testadas de forma a que o Ieitor 
possa facilmente modif icar o siste- 
ma (adicionando, por exemplo, 
um terminal de vfdeo) a fim de sa- 
tisfazer suas necessidades pessoais. 

BORGES, J. A., BASIC - 
Aplicagdes Comerciats, Editora 
LTC, 



B A abqrdagem geral do livro se 
baseia em exemplos valtados para 
aplicaQoes do tipo gerenciai. ■ 3f* 
tindo de programas completes, 
que sao minuciosamente analisa- 
dos, o Ieitor 6 guiado ao entendi- 
mento do computador e da ativi- 
dade de programagao. Todos os 
detalhes da linguagem BASIC -sSo 
explorados, inclusive os aspectos 
que nSo sSo padronizados nas di- 
versas versQes para diferentes 
computadores. tspecialmente, o 
capitulo sobre arquivos fomece a 
base para desenvolvimento das 
aplicagoes de uso na administra- 
g5o em geral. Embora enfase seja 
dada no BASIC para micros, este 
texto poder£ ser utilizado por 
programadores que utilizem _ o 
BASIC em computadores demaior 
porte. 
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Voce podeate achar que o prego e as condigdes que 
aUappy oferece saoas melhores do mercado. 

Oque e verdade, facil de voce comprovar. Mas o que 



uai ao comprarseu micro na Clappy, veia o que 
elaihe oferece: 

• Departamentode Consuitoria eApoio ao 
Comprador 

• Curso de Programagao e Operacao 

• Treinamento 

• Implantagao , fornecimento e instafacao de 
sistemas 

• Grande variedade em Softwares, perifericos 

e suprimentos. _ _ 



Clappy 



CP 500, nas versoes cassete , 7 ou 2 d/scos. 
Placa CP/M. Sistema 700 com super file e 
impressora de 200cps, disco Winchester de 
5 Mb. Sistema 600, PROCALC (o visicaic do 
CP 500), Banco de Dados basico e avangado, 
processadorde textos basico e super, 
compilations BASIC, COBOL, FORTRAN e 
PASCAL. Aiem de uma infinidade de jogos. 

h APUCAT1VOSCOMERCIAIS: 

• Contabilidade, Controle de estoque, Folha 
de pagamento, Contas a pagar e receber. 

APUCA TIVOS DE APOIOA DECISAO : 

Planilha financeira, Processamento de 
textos, Maia Direta, Cadastro de dientes, 
Controle financeiro. 

A Clappy desenvolve solugoes especfficas 
para qualquer problema que voce tenha. 



aclaprytema melhor 

SOLUQAOPARA SEUSPROBLEMAS. 



CENTRO: 

Av. Rio Branco, 12 - Loja esobreloja 
Tel.: (021)253-3395 



«■» w.: 254-3395 

PKOI flfilPA Venha a nossa loja ou so/icite 6ua Sete de Setembro, 88 - Loja Q (Galeria) 

rnV/IA/vIvn a visita de um representante TeL: (021)222-5517- 222-5721 

microcomputadores 



COPACABANA: 

Rua Pompeu Loureiro, 99 
Tel.: (021)236-7175-257-4398 

Abertadiariamentedas 10 as 20 horas eaos sabados das Was 15 
horas. Estacionamento prdprio. 

Entregamos em todo Brasil pelo reembolso Vang. 



Linha Apple 



Disco voador sonoro 

Lendo o litil e inteiessanie artigo Rotinas de som e 
animagdo grdfica, de Rudolf Homer Junior, na Seijdo 
Sidra de MS n9 27, chamou-me a aten^So o som do disco 
voador. Resolvi fazer uma pequena altera^o no programa 
(espero nSo ferir os sentimentos do autor do artigo) e jun- 
tar a imagem ao som. 

Depois de rodar o programa, 6 interessante afastar-se 
cerca de quatro metros, da TV, pois o efeito fica ainda 
mais atraente e sugestivo. 

iO REM DISCO VOADOR * BY CAR JB A * DEZ 1983 
20 HOME 

30 DATA 160,1, 162, 0,438, 24, 233, 1,208,252,1 
41,48,192, 232 , 224 , 255 , 208 , 242 , 236 , 208 , 237 , 
96 

40 FOR A-76B TO 789 : READ B * POKE A,B : 
NEXT 

50 GR : COLOR « RND(16>*16 

60 HLIN 17,21 AT 17 

70 HLIN 15,23 AT 18 

80 HLIN 12,26 AT 19 

90 HLIN 9,29 AT 20 

100 HLIN 7,31 AT 21 

110 HLIN 9,29 AT 22 

120 HLIN 13,25 AT 23 

130 HLIN 15,16 AT 24 

140 HLIN 22,23 AT 24 

150 FOR A=1 TO 255 STEP 3 

160 POKE 774,105 s POKE 769,1 5 POKE 783, A 

170 POKE -■ 16304 , A 

180 CALL 768 

190 POKE --16303,0 

200 FOR 8=1 TO 30 : NEXT 8, A 

210 GOTO 50 
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Se voce tern pequenas rotinas e programasutilitJrios^ 
realmente uteis tomando poeira em seus disquetes ou 
fitas cassetes, antecipe-se aos piratas e trate de 
divufgd-los . Envie-os para a REDAQAO DE 
MICRO S/STEMAS - SEQAO DICAS.Av. 
Presidente Wilson , 165/grupo 1210, Centro, Rio de 
Janeiro, RJ, CEP 20030. Nao se esquega de dizer 
para qua I equipamento foram desenvoividos. Desta 
forma, sua descoberta poderd ser util para muitos 
e muitos, em vez de desmagnetizar-se com o tempo 
/ em cuas fitas e disquetes... 



Linha TRS-80 






Carlos Ribeiro de Barros-SP 



Duplicador de linhas 
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Linha TRS-80 



Bye bye INKEY$ 

Sabendo os enderesos e valores de cada tecia, fica 
muito fdcil eliminar o INKEYS e permitir maior ve- 
locidade nos programas. 

Observe que neste programa aparecem no video os 
valores relacionados a cada tecia, e se apertarmos vd- 
rias teclas simultaneamente, o resultado que surgird 
na tela serd a soma dos valores de cada tecia. Assim, 
para substituir o INKEYS, basta usar IF PEEK (en- 
derego) = (valor da tecia) THEN.... 

1 CLS : FOR K=0TO7 : X(K) = 1433 

6+2+K : PRINT@1 2 8 *K , X ( K ) : NEX 

T 

2 FOR K = 0 TO 7 : PRINT@1 28*K+8 

, PEEK ( X ( K ) ) , : NEXT : G0T02 

3 REM ENDERECOS E VALORES DO TEC 
LADO 

4 REM ALVARO DE FILIPPO (031) 
823-1948 IPATINGA MG 



Este utilitdrio gera uma 
linha identica a outra ja 
existente no programa, pois 
nSo existe esta fun^do no 
BASIC dos micros eompati- 
veis com a linha TRS-80. 
Para operd-lo, basta seguir a 
sequential 

— digite o numero da nova 
linha; 

— utilize a tecia de tabula- 
£Sb ( -+■ ) para mover o 
cursor, reservando um espa- 
90 identico ou superior ao 



da linha que serd duplicada; 

— digite o simbolo de co- 
mentdrio (’) e, como lem- 
brete, o numero da linha 
que serd duplicada; 

— tecle RUN 65000 ou 
GOTO 65000 e responda ds 
perguntas “DE” e “PARA” 
com os respectivos numeros 
das linhas; 

— tecle < ENTER > e 
observe que vocS obteve 
uma cOpia fiel de uma linha 
jd existente. 



65002 

65003 

65004 



INPUT" DE" ;L1 : INPUT"PARA" ;L2 : L3=165 

48 

L3=PEEK ( L3+ 1 ) *256+PEEK( L3 ) : L3=L3+(L3 

327 67)*65536 : IF L3 = 0 THEN 65000 £LS 
E E=PEEK ( L3+3 ) * 256 + PEEK ( L3 + 2 ) : IF E<>- 

LI AND E<>L2 THEN 65001 
IF E=L1 THEN E1=L3+4 ELSE E2=L3+4 
IF El =0 OR E2=0 THEN 65001 
POKE(E2) , PEEK (El ) : E1=E1+1 : E2=E2+1 

: IF PEEK (El ) 5 0 AND PEEK(E2)>0 THEN 65 
004 ELSE PRINT" OK " : EDIT. 

1 DUPLICADOR DE LINHAS * ALVARO DE FIL 
IPPO * (031) 823-1948 



Alvaro de Filippo-MG 



r m 
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Alvaro de Filippo-MG 
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Unha Apple 



Formatando quantias tnonetdrias 



„Esta dica transforma qualquer va- 
lor numdrico (exceto em notacffo 
cientifica, tipo 1 .234' E+3) positivo 
ou negativo para o forma to 
XXX.XXX r XX, que d muito utiliza- 
do para representar quantias mone- 
tarias. 

O programa deve ser usado como 
sub-rotina num programa principal, q 
para melhor compreensao vamos ana- 
lisa-lo a partir da figura 1 • vamos su- 
por a varidvel VENDAS = 1 .000 856 
T e LUCRO = VENDAS* 0.8, ou seja, 
LUCRO = 800.6848. Para formatar 
os valores de VENDAS e LUCROS 
usaremos as linhas 1 10 e 120 da figu- 
ra 1, colocando numa varidvel VX o 
valor da varidvel a ser formatada. 
Ativamos a sub-rotina foimatadora 
(GOSUB 4000), que nos devolve o 
valor formatado na varidvel Z$ e 
salvamos o valor desta varidvel numa 
outra varidvel alfanumerica qualquer 
(no caso da figura 1, LUCROS e 
VENDAS $). 



£ importante evitar que as varid- 
veis utilizadas na sub-rotina nSo se- 
jam usadas no programa principal, 
pois poderd gerar perda de valores e 
criar confusSo em outros resultados. 
Para evitar a repetifao, fixe as varid- 
veis usadas: VS, VO$, ZS, VX 
FLAG, CNT, MOD, L. Por fim, d 
interessante destacar que esta dica 
aceita ate o valor mdximo de 
999.999.999,00. 



Sub” rot in a formatadora 



40000 Z$^= “’:V$ = STR$ (VX) ;CNT 

40010 IF SGN ( VAL (VS)) = i 

THEN FLAG =1 

40020^$ = STRS ( ABS ( VAL (V$) 
40030 FOR I = 1 TO LEN (vs . 

40040 IF MIDS (v$,IJ? 'JV., 

GOTO 40070 " 

4OOS0 NEXT I 

4 0070 VOS = M? 0 " 1 GOTO 40O8 ° 

40070 VOS = , + M ID$ (V $ #I + , 

40080^ FOR X = I - 1 to | STE p _ 

40090 CNT m CNT + 1 

40100 IF (CNT / 3 - I NT (CNT / 



3) = 0) THEN Z$ =. MIOS (V$. 
X,3) + “ , " + 2$ 

40110 NEXT X 

40120 <vsm» EN ( STR$ ( lm ( VAL 

40130 MOD = INT (L / 3) 

40140 IF (L / 3) - INT (L / 3) 

0 TH£ N GOTO 40160 
40150 , Z f : „ LEF P <V5,L - 3 * MOD 

40160 IF FLAG = 1 THEN ZS » ,, ~" 
LEFTS (2$, LEN (ZS) - )) + 
VOS : GOTO 40180 

40170 2$ = LEFTS (ZS, LEN (7.5) - 
1 ) + V0$ 

40180 FLAG = 0 
40190 RETURN 



Antonio Carlos Paimeira Sailes-PB 
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Zerando 
qualquer linha 

A dica “Zerando REM”, 
publicada na Sefffo Dicas de MS 
n9 27 , zera apenas as linhas de 
comentdrio dos programas em 
BASIC. Com pequenas 
alteragSes, entretanto, podemos 
fazd-Ia zerar qualquer linha de 
programa. Para tal, digite a dica 
“Zerando REM” e fa?a as 
seguintes altera^es: 



9870 INPUT X 
9960 IF PEEK (L+5) < > X 
THEN RETURN 



A linha 9870 recebe o cddigo 
da instru§do cujas linhas serdo 
zeradas. Se, por exemplo, 

X= 245, entdo to das as linhas 
PRINT receberSo o numero 0 
e naopoderdo sermais deletadas. 
Com rela$do ds outras 
instru^es (IF, LET, INPUT 
etc.), consulte o manual do seu 
equipamento. 



Rodrigo Loureiro Pinto-RJ 
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Se voce quiser retornar da condicdo de caracteres de 
tamanho duplo (32 cpl) sem ter que usar CLS e com isso 
apagar toda a tela, digite em BASIC: 



Linha TRS-80 



Otimizagdo de caracteres duplo s 



POKE 16912,40 : OUT 236,0 < ENTER > (Mod III) 
POKE 16445,0 : OUT 255,0 ' < ENTER > (Mod I) 

A unica coisa diferente que acontecerd (mas que 
permite inventar efeitos especiais na tela) d que ao 
retornar aos caracteres de tamanho normal, tudo que 

entrAr^ n i°* na tela estar ? com um espa$o em branco 
Ta a OLS caracteres (p° is cada carater duplo ocupa 
o lugar de dois caracteres normals). Para verificar, rode 



este exemplo e depois adapte esta dica ds suas 
necessidades: 

1 CLS 

1 0 PRINT CHR$( 23 ) 

20 PRINT@80, "CARACTERES DUPLOS" 

30 FOR 1=1 TO 100 : NEXT 

5o for E t 1 5 0UT 236,0 : REM - Mod 111 

50 FOR 1=1 TO 100 ; NEXT 

60 GOTO 10 



Roberto Quito de Sant'Anna-RJ 
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Com este programs, os micros da iinha Sinclair facifitam a preparagao i 

de escrituras de compra e venda de propriedades rurais ■ 



De azimute em rumo 



Laci Mota Alves 



O desenvolvimento de micro com- 
putadores nacionais abre novas 
perspectivas de maior automa- 
tiza^ao da topografia no Brasil. 
Com rela$ao aos micros da Iinha Sinclair, 
em decorrencia de sua capacidade de 
memdria de atd 48 Kb de RAM e pos- 
sibUidade de conexao a uma impressora, 
espera-se seja de grande valia na eiabo- 
rafao de planflhas topogrdflcas. 0 que 
podertf causar incomodo em alguns mo- 
mentos 6 a impressao dos somente oi- 



to digitos signiflcativos que, as vezes, 
sffo insuficientes para apresentar adequa- 
damente certos resultados. 

A calculadora programdvel HP-97, 
por sua vez, mostra-se eficiente na re* 
S 0 IU 9 S 0 de problemas de topografia. 
Tem a vantagem de imprimir atd dez di- 
gitos significativos, tem 6 timos recursos 
de programa^ao, mas apresenta s 6 26 re- 
gistradores para o armazenamento de 
numeros e impress£o em papel tdrmico. 
Entretanto, e bastante propfda a pre- 




10 DIM R$ (4,3) 

11 DIM.. G$ (1,7) 

12 LET D=PI/PI+PI/PI 

13 LET P=180 

14 LET C= 60 

15 LET U=D/D 

16 LET Z=10 

20 LET R$(U)=" NE” 

30 LET R$ (D) =" SE" 

40 LET R$ (P/C) =“ SW” 

50 LET R$ (D*D)=" ' NW" 

51 LET DECIMAL=250 
60 LET GRAU=3 10 

70 PRINT "ENTRE COM AZIMUTE EM 
G.MMSS" 

71 PRINT " RUMOS:"; 

80 INPUT AZ 

90 LET G=AZ 
120 GOSUB DECIMAL 
140 IF G>=P*D THEN LET G=G-INT 
(G/P/D) *P*D 

150 LET Q=INT (G*D/P)+U 
160 IF Q>D+D THEN LET Q=U 
170 LET R=((INT (Q/D) -G/P) /COS 
(PI*Q) ) *P 
180 LET G=R 

210 GOSUB GRAU 

211 LET G$ (U) =” " 

220 LET G$(U,D)=STR$ G 

221 IF G>=Z THEN LET G$(U,U TO 
D) =STR$ G 

222 LET G$ (U , D+U) =" . " 

223 LET G$(U,Z/D)=STR$ M 



224 IF M>=Z THEN LET G$(U,D*D T 
O Z/D)=STR$ M 

225 LET G$ (U, Z/D+D) =STR| S 

226 IF S>=Z THEN LET G$(U,C/Z T 
O Z/D+D) =STR$ S 

227 FOR I=D TO Z/D+D 

228 IF G$ (U,I) =" “ THEN LET G$ ( 
U,I)="0" 

229 NEXT I 

230 PRINT TAB 11;G$ (U) +R$ (Q) 

231 GOTO 80 

240 REM *********************** 
250 REM ‘DECIMAL* 

260 LET M=INT (G*Z*Z)/Z/Z 
270 LET M= (M-INT M)/C*Z*Z 
280 LET S=(G*Z*Z-INT (G*Z*Z) ) /P 
/D*Z 

290 LET G=INT G+M+S 
300 RETURN 
310 REM *GRAU* 

320 LET MI= (G-INT G) *C 

330 LET M=INT MI 

340 LET S=INT ( (MI-M) *C+U/D) 

345 LET G=INT G 
-350 IF S=C THEN GOTO 370 

351 IF M<C THEN GOTO P*D 

352 LET M=U-U 

353 LET G=G+U 
360 RETURN 
370 LET S=U-U 
380 LET M=M+U 
390 GOTO 351 



paramo de dados a serem arquivados e 
processados pelo micro. Este , propordo- 
nando o uso de caracteres alfanumdri- 
cos, imprime resultados mais bem elabo- 
rados, contribuindo para diminuir enga- 
nos e omissQes a que estamos sujeitos. 

Como exemplo, elaborou-se um pro- 
grama de computa^ffo em BASIC em 
um TK82-C que transforma azimutes 
em rumos. Facilita sobremaneira a pre- 
paragdo de memorials descritivos que 
constam de escrituras de compra e ven- 
da de propriedades rurais. Um memorial 
descritivo 6 feito de modo a fomecer a 
diregS'o, o sentido e a distanda de cada 
alinhamento que compQe a poligonal fe- 
chada que delimita a propriedade, as- 
sim como suas confronta^Oes. 

A dire^To e o sentido de cada alinha- 
mento sSb dados, geralmente, pelo rumo 
magn^tieo, que pode ser NORDESTE 
(NE), SUDESTE (SE), SUDOESTE 
(SW) ou NOROESTE (NW). Este pro- 
grama poderi servir como sub-rotina pa- 
ra outro de nature za mais complexa e 
abrangente. Aceita azimutes no sistema 
sexagesimal e fomece resultados sob a 
forma G.MMSS Q, em que:G = grau, 
MM = minutos, SS = segundos, Q = qua- . 
drante (NE, SE, SW ou NW). Os azimu- 
tes maiores ou iguais a zero deverffo ser 
digitados como G.MMSS, ex: 354 . 4532 , 
que corresponde a 354945 ’ 32 ’\ ■ 



Laci Mota Alves d engenheiro f/orestal forma- 
do em 1973 pefa Universidade Federal de Vi - 
fosa — MG. £ p6s-graduado em Cidncia Fto- 
restaf e leciona atualmente Topografia e Foto- 
grametria na Esco/a Superior de Agronomia 
de Paraguagu Pauiista — ESAPP. Aldm disso, 
presta services autdnomos de Topografia, 
ConservapSo do So/o e outros de Engenharia 
Fiorestal desde 1975. 
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PARA TK 2000 COLOR 



A Microsoft tern 120 programas em fitas e disquetes a sua disposi<pao. 

Sao sistemas aplicativos para acompanhar e agilizar os negocios 
. de sua empresa. E tambem jogos eletrdnicos para voce e sua familia 
se divertirem muito. Todos especiais para TK-83, TK-85; 



T K-20 00, AppleHe compativeis, E todos com a mesma qualidade 

dos 100.000 programas jc» vendidos em todo o Brasil: 

“Procure o revendedor Microsoft mais proximo (se nao encontrar os 
programas Microsoft escreva para a Caixa Postal 54221 - CEP 01000 
rS. Paulo-SP). Voc& encontrar^ os melhores programas da sua vida.. 



/MICROSOFT 
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MICRO SISTEMAS, SEI — Sistemas Eletronicos de Informacoes, divisao 
da Abril Cultural, e Telesp tem o prazer de apresentar. . . 




A I 
CLUBE E 



o servigo Videotexto para usudrios de microcomputadores. 

Com o Telesoftware voce tem a sua disposieao, 24 horas por dia, 
em sua casa, uma ampla biblioteca de programas de uso pessoal, jogos e 
- educativos, admimstrativos, financeiros, tecnicos /cientificos 

in r w publ,cad 7 s r ^ RO SISTEMAS. Sao programas - a princfpio 
pativeis corn a linha TRS-80 — selecionados e test ados pela Revista 

que voce podera carregar diretamente no seu micro, sem ter que digita-los. 
Para utilizar esse servi^o, tudo o que voce precisa e: 

★ Ter um'micro CP- 500 ou CP-300 
★ Ser assinante do Videotexto 
★ Adquirir um kit composto de interface RS232-C, 

’modem e software de com unicacao 
Se voce tem um desses micros, nao perca tempo. Entre em contato 
com a Telesp (Videotexto — Gerencia de Usuarios, tel.: 544-2535) e 
comece a utilizar esse novo e revolucionario meio de comunicacao. 



Comunicaq 
CAD 
CEP Old 



/Micro r 








ABRIL S A 



TELECOMUNICACOES 
DE SAO PAULO S A 
EMPRESA DO SISTEMA TELE8RAS 



ipniQOQI 

miinmii 



Tel.: ( 



(5000 




Programa 



& 

Aprendendo Frapoes 
Biorritmo 

Catcilogo de Disquetes 
Ciclotron, o Jogo das Barreiras 
Compilador Forth 
Copsys 

Mini Editor de Textos 
PIL — Controle da Fertilidade 
Professor J. C. 

Registro Pessoal de Cheques 

Soletrando 

Tutor Matem^tico 



Autor 

Heber Jorge da Silva 
Francisco Luiz Farias Bezerra 
Lawrence Falconer King 
Hendy Takeshi Yabiku 
Antonio Costa 
Daniel Augusto Martins 
Ivan Camilo da Cruz 
Armando Oscar Cavanha Filho 
Jdneson Carneiro de Azevedo 
Marcelo Renato Rodrigues 
Heber Jorge da Silva 
Paulo Sergio Gonsalves 



Publicado na 
Edupao n? 






Todos os meses, este servi^o send enriquecido com 



novos programas 
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m.5. Senecas 



A I f 3 Bit 
CLUBE PE COMPUTAQAO 



Assocle-ss ao ABCc e ganfte Antinclo GRA- 
TIS,- urn exemplar de ALFABIT e DESCON- 
TOS de 10% na compra de LIVROS, REVIS- 
TAS CURS OS e PROGRAM AS, al$m de: 

— Serves de "Reprinters" e Consultas 

— Assoclagao a Clubes Europeus 
Partcipagao em Cursos, Congresses e 
Concursos 

— No vos Langamentos a PRECOS REDUZI- 
DOS {Breve; !M PRESSOR A DE AGU- 
LHAS P/MINI-MICROS DE lOCICA SIN- 
CLAIR - Langamento ‘'Digital Eietrfl- 
mca ) 

ANUIDADE: ClS 1.000 (hunt mil cruzeiros) 
somente ao receber seu Cartao-Descontos e 
urn exemplar de “Alfabit” 

Emrfe nome. endarego, profissSo e texto do 
seu anuncto (caso queira publicagao ime- 
diata). 



N 0 V 1 0 E I A (*) 

Comunicagao e Inlormatfca Ltda 
CAiXA POSTAL 9978 
CEP 01051 - Sao Paulo, SP 



(')Comercializamos seu proje- 
to-Soft ou Hard. Escreva-nos, 



No Recife, visite 

T E L E V i D E 0 {’) 

0 Lojao de inlormatica mais 
cfescompltcado do pais! 

Micros, perifericos, suprimen- 
tos, Software, Cursos, Livros e 
Revistas, Componentes Eletro- 
nicos, Pepas e Som. 



PREQ0S ESPECIAIS. 
FINANCIAMENTO PR^PRIQ, 

Compre pessoaimente ou peio 
Reembolso Postal; 

teLevideo ltda. 

R. Marques do Herval, 1 57 
Tel.: (081) 224*8932, 
(50000) Recife, PE 



(')Sr. Industrial: distribuimos seu 
produto nas melhores cond/goes. 
Contato em Sao Paulo: Tel.: (Oil) 
220-7377 (Sr. ANDERSON - Mun- 
disom) 




PROBLEMAS 
COM SUA 
ASSIIMATURA? 

Escreva para o nosso Doparta- 
mento do Assinaturas do Rio ou 
SSo Paulo e envie, para faciiitar 
a sua etiqueta adesiva de remes- 
sa. 

ALTIIk 



Rio de Janeiro - Av. Presidents 
Wilson, 165/grupo 1210, Centro 
RJ, CEP 20030 - tels.: (021) 
262-5259 e 262-5208; 

S5o Paulo - R. Oliveira Dias, 
153, Jardim Paulista, SP, CEP 
01433 - tets.: (Oil) 853-7758 
881-5668 e 853-3800. 



DATAMICRO 




SUPRIMENTOS 

DisqueteJititas- form continuo T 




Vise, de Piraja, 547 Sobreioja 211 
Cep. 22.410 Ipanema Rio RJ 
Tel.: (021) 274-1042 
DESPACHAMOS PARA 
TODO O BRASIL 



[SiMc^aifi^Gce 



O lugar compativel 
com voce e seu 
micro . 



— Micros 
— Acess6rios 
— Software 
— Livros 



W MICROLOGICA 

Engenharia de Sistemas Ltda 
Consultorla de Hardware 
assistencia tecnica 
A MICROCOMPUTADORES 
Compativeis com APPLE, 
TRS80, IBM PC, ZX81, jogos 
eletrdnicos e outros. 



Lanpamento do contrato de 
marmtengao com custo 
’ rnintmizadOo 50% do valor 
normat aprescido docusto 
de pegas (quando houver). 



Temos programas comerciais, 
utilitArios, educacionais, 
aplicativos e jogos novtssimos 
para APPLE II em Diskettes 
a partir de 15 mil 
AV PRESIDENTE VARGAS, 542 
/1 91 2 — 263-9925 
RIO DE JANEIRO (RJ) 



APPLE II 



Transformaqao PAL-M 
Assistencia Tecnica 
Expansoes 





Rua Dias da Cruz, 215 
s/804 — Rio de Janeiro — RJ 
Tel.: 594-2699 



LE/A 

ASS/NE 



Micro 






UNITRON 



Assistencia Tecnica 
Autcrizada 
Vendas • Leasing g 
Expansoes § 



MICROEQUIPO 



Manutengao 
na sua empresa 

Av. Marechal Camara, 271/101 
Rio de Janeiro Tel.: 262-3289 



“M IKROS’ 
AGORA NO 
LEBLON! 

Av. Ataulfo de Paiva 566 - Loja 211 
Rio de Janeiro — Tel.: 239-2798 



APROVEITE OS PKEgOS 
“INCRIVEIS" DA "MIKROS” 
DO LEBLON, APOS SUA 
EPOCA DE INAUGURACAO. 



A1 ICROCOMPUl ADORES 



NAJA - JR-SYSDATA - UNITRON 
COLOR 64 - APPLE-J I PLUS 
CP-200 - CP- 300 - CP- 500 
TK-83 - TK -83 - RINGO 



SISTEMAS 



SOFTWARE (NAC. E IMPORT) 
IMPRESSORAS E PERIFERICOS 
CURSO DE BASIC 



PROFISSIONA1S 
ALTAMENTE ESPECIALIZADOS 
PARA ATENDE-LO 



AV. ALMIRANTE BARROSO, 81 - U “C” 
TEL: 262-9229 ■ 262-9088 - 240-8410 ■ 221-8282 
RIO DE JANEIRO - GASTELO 



ROBOTIC 

MICROCOMPUTADORES 
DE TODAS 
AS MARCAS 
SUPRIMENTOS 

PEQAS E PARTES PARA 
MICROCOMPUTADORES 

JOGOS ELETRONICOS 

RUA BARATA RIBEIRO, 370 
- Loja 105 APART HOTEL — 
COPACABANA — RIO — RJ 
TEL: (021) 257-6396 



EETE5EEE 

INFORMATICA I IDA 



• Contabilidode Geral 

• Editor de Texto 

• Sistema de Arquivos 

• Mala Oireta 

• Sistema Estat slico 

• Controle BancAno 

• Admmistraqao ImobfliAria 

• Sistema Bibfiotecduo 

• EacrrtOrio de Advocacia 
» Utilrtfirios em Geral 

Jogos Dl versos 



trank I in Knosovll. 2 1X01 - ( astclo 

I«l' HtZli 220AS2V - 22(1-8127 
OH* 31.021 Kin dr Jaiirtro — RJ 











all 

ail 



LD BC , xx xx 


- > 


LET BCsxxxx 




L..D HL r Z2Z2 




LET HL=zzzz 




LD (HL) „ cld 


> 


POKE HL , dd 




LD xxxx r (HL) 


rs. a: x: > 


POKE xxxx r L. <? POKE xx xx 


+ 1 ,H 


LD A, (HL) 


SR as as w > 


LET AaaREEK HL 




EX DE r HL. 


™ a:: as as > 


LET HL«DE e LET DE-HL 
'GOTO xxxx (JPaJumP) 




JP xxxx 


a= asssas > 




CALL zzzz 


i! 

!l 

!! 

ii 


GOSIJB zzzz 




LD D , d d 


a# as «ssa > 


LD D*dd 




ADD A , C 


“ - as as > 


LET A=A+C 




SBC HL,DE 


a= = s=as > 


LET HL-HL-DE 




ADD HL y BC 


::s:=:=:aa> 


LET HL™HL..+BC 




INC HL 


> 


LET HL=HL+i 




DEC DE 


““ !B> 


LET DE“DE”1 





Figura 1 — Algumas instrupoes Assembler possuem uma mecSnica bastante semelhante a deter- t 
minadas instrupoes do BASIC. Outras porim sd sdo simuladas atravis de rotinas complexas. j 

A FUNCIONAUDADE / j 

DO STACK DA Z80 / { 



V amos iniciar este mes a cons- 
tnifSo do MICRO BUG, e 
nesse primeiro contato discu- 
tiremos algumas preocupa- 
f 6 es e cuidados a serem tornados. Em 
primeiro lugar, € preciso seguir a risca o 
texto e nao saltar explica 9 oes ou proce- 
dimentos. £ de vital importancia que o 
leitor entenda o que estd fazendo antes 
de se aventurar em modifica 9 oes.Mesmo 
os leitores que ja conhecem e dominam 
o Assembler devem ler com aten 9 do ca- 
da tbpico, pois tudo foi planejado para 
ter uma sequdncia tanto de funyoes 
quanto de explica 96 es. 

Outro ponto importante 6 quanto a 
grava^ao do MICRO BUG, mais precisa- 
mente quanto d fita cassete a ser empre- 
gada para tal. No tbpico sobre os co- 
mandos de grava 9 ao iremos abordar 
esses problemas mais a fundo, por&n no 
momento 6 suficiente o leitor separar 
uma fita exclusivamente para este traba- 
lho. De preferencia, uma fita C-46 de 
marca conhecida ( Scotch ou Basf). 

A representa<?Ao 

DO ASSEMBLER Z80 

0 grande segredo para se dominar a 
linguagem de maquina esta na capacida- 
de de compreensdo e interpreta 9 do dos 
nmembnicos da Z80. De fato, basta en- 
tendermos o que aqueles nomezinhos es- 
tranhos querem dizer para que todo o 
mistdrio desaparega. 

Vejamos um exemplo: o codigo 62 
corresponde d instru 9 do LD A, dd. 
Esta instrufao serve para carregar o 



acumulador com o valor generic o dd. 
Assim, podenamos dizer que LD A, 01 
equivale a LoaD Acumulador com o 
valor 1 . Em BASIC usariamos o coman- 
do LET A = 1. Simples, nao? 

Como o acumulador, existem mais 
alguns registradores, pordm sb nos im- 
portarao os seguintes: H, L, B, C, D e E. 
Estes registradores sdo comumente agru- 
pados na ordem HL, BC e DE, e desta 
forma qualquer um destes pares pode 
representar um valor entre 0 e 65.535 (2 
bytes). 

Na figura 1 temos algumas instru 9 bes 
do Assembler e os seus correspondentes 
aproximados em BASIC. A partir de 
agora usaremos as representa 9 Ses 
dd,xxxx,zzzz, etc. para indiear valores 
de 1 byte (dd,xx,yy,zz) e valores de 2 
bytes (xxxx,dddd,yyyy,zzzz). 



Compreender o principio de funcib- 
namento do Stack da Z80 e, sem diiVi- 
da, o passo mais importante dentrqMa 
programa 9 do em linguagem de mdqtiina. 
Acompanhe pela figura 2 a explicagdo a 
seguir: quando o sistema se organiza, ele 
determina um endere 90 para o par de re- 
gistradores SP (Stack Pointer). Neste e 
nos endere 9 os subseqiientes, em ordem 
decrescente, a Z80 irl armazenar e rear- 
perar temporariamente informa 9 oes. 
Isso serd feito pelas instn^oes PUSH e 
POP e cada informa 9 ao armazenada ou 
recuperada devera constar num par de 
registradores (HL, BC, DE ou AF). A 
posigao do Stack 6 sempre atualizada 
em dois bytes e aponta para o primeiro 
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31997 j;;< 


3199 7 


XX 


31990 }.«.{ 


SP “>31998 


zz 


31999 


31999 


dd 


- >32000 «:■; 


32000 


32001 KK 


32001 


>i X 



HL=dd 22 ou 
H~dd e L=>zz 



apos PUSH HL 



31997 

31998 

31999 
BP «> 32000 

32001 



apofi POP DE 
DE»ddza 



SsaaS*. ?rr 

tna tmportancia para a criagao de programas Assembler. 



eleraento da pilha e, assim, por exem- 
pt se o Stack estiver apontando para o 
enderego 32000, ap6s um PUSH HL, o 
enderego 31999 conterd o valor do re- 
gistrador H, o enderego 31998 conterd 
o valor de L e o Stack estard apontando 
para o enderego 31998. 

Para recuperar estes valores basta 
fazer POP DE (por exemplo) que o re- 
gistrador E assumird o conteudo do 
enderego 31998, o registrador D assu- 
mird o conteudo do enderego 31999 e o 
Stack estard novamente apontando para 
o enderego 32000. Note que POP nao 
altera o conteudo dos enderegos, mas 
apenas modifica o valor do SP. 

O Stack, no entanto, ndo d ocupado 
apenas dessa forma. Hd uma outra for- 
ma de utilizagao que costuma causar 
uma infinidade de dores de cabega aos 
programadores: atravds das sub-rotinas... 

Imaginemos o nosso Stack no ende- 
rego 32000. Ap6s uma instrugao do tipo 
CALL xxxx, o Stack apontard para o 
enderego 31998 e os enderegos 31999 e 
31998 conterao o enderego de retomo 
da dita sub-rotina, ou seja, o enderego 
da primeira instrugdo ap6s CALL xxxx. 
Quando houver uma instrugao RET, o 
Stack apontard para o enderego 32000 
e a execugdo do program a sera desviada 
para o enderego armazenado em 31998 
e 31999. Isso implica em que toda sub- 
rotina deve terminar por um RET, caso 
contrdno o programa poderd ser desvia- 
do para um enderego desconhecido. 

Obviamente, programar em lingua- 
gem de mdquina ndb 6 s6 isso, e nesse 
momento seria prudente dar uma recapi- 



organizagao inicial 



memoria RAM 



tulada no curso de Assembler da propria 
MICRO SISTEMAS. 

OS PREPARATIVOS 
INICIAIS E A DIGITAL AO 

A nossa primeira agao serd reservar 
espago no topo da RAM para que Id seja 
posicionado o SGM (Sistema Gerencia- 
dor de Mddulos). Para o SGM iremos 
reservar 2 Kbytes, sendo que isso serd 
feito pela alteragdo do valor da varidvel 
RAMTOP. 

Faga POKE 16389, 120 e em seguida 
NEW. O comando NEW e fundamental, 
pois d ele quern organiza o Stack da Z80 
(se for omitido, o Stack permanecera 
ainda no topo da RAM). Quando, por 
um motivo ou outro, for dado um 
POKE dentro do Stack, o sistema perde- 
ra toda a referenda de retomo e o micro 
muito provavelmente saira do ar. Acom- 
panhe pela figura 3 a mecdnica da reser- 
va de espago (lembre-se sempre que toda 
vez em que houver necessidade de reser- 
var espago no topo da RAM o procedi- 
mento deverd ser o que acabamos de 
ilustrar, ou seja, POKE e NEW). 

Passemos entao a listagem 1 . Ela ser- 
vira para a introdugao da primeira parte 
do SGM, com a impressao dos enderegos 
em hexadecimal, pois este sera o padrao 
adotado daqui para frente. Apds a digi- 
tal da listagem 1, digite RUN e res- 
ponda a pergunta ENDEREGO? com o 
primeiro enderego da listagem ou bloco 
que for digitar. Os enderegos subseqiien- 
tes n2o precisam ser digitados. 

Digitando M, o sistema retorna & per- 
gunta ENDEREQO?, e digitando Z o 



RAMTOP=32768 



apos POKE 16389,120 
memoria RAM 



apos NEW 



memoria RAM 



RAMTOP=3072D SP 

h — * 

area a ser reservada 

SP RAMT OP=3Q720 

| area reservada 



Zori Z f s,e ■ foi P'° bt ?™ encod'd 

< MSn * mero 25> t, 
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Era 

s6oque 

faltava 

Agora, com as interfaces 
TL 85 e TL 300, voce ja pode 
ligar o seu micro TK 85, TK 83 
e CP 300 em uma impressora. 



TL 85 



Interface que complementa 
seu TK 85 ou TK 83, ampliando largamente 
a aplicagSo do mesmo. 

• aciona qualquer impressora ou mdquina 
de escrever eletronica, com comunica- 
$5o paralela Centronics; 

• aceita todos os comandos relacionados 
com impressora (Copy, Llist, Lprint); 

• gera maiusculas, miniisculas, acentos 
e controles do ASCII, diretamente do te- 
clado; 

• permite a conexSo de outras expansSes. 

Vers a o com Editor Facflimo de usar; orien- 
tado para Ifngua portuguesa; gravado em 
EPROM; marginagao automatical separa- 
gao siiabica e outros recursos. 




TL 300 

Acionada pelos comandos de impres- 
sao, a interface TL 300 possibilita a ligagao 
do CP 300 a qualquer impressora ou m£- 
quina de escrever eletronica, com comuni- 
cagao paralela Centronics. Permite, ainda, 
a expansao do sistema, oferecendo condi- 
g6es para que o micro aceite outros perif6- 
ricos. 

^ Tekno 
.%■ L6gica_ 

Produtos e Servi^os para a 
Informatica Ltda. 

Av. Sao Pedro, 1062 - Fone (0512) 42-8549 
90000 Porto Alegre - RS 

Distribuidores 

S&o Pauto: Pr6-Controle Com. e Controle 
Ltda. - Fone (0192) 32-7364 - Campinas 
Goi£s e Distrito Federal: 

New Computadores Comfercio e 
Representagoes Ltda. 

Fone (061) 274-5060 ■ Brasilia 




O COMANDO M E AS PRINCIPAL ROTINAS DO SGM 




1 



r 



Listagem 1 



5 FAST 
10 SCROLL 
15 SCROLL 

20 PRINT "ENDERECO?" 

25 INPUT F.S 

30 LET E=CODE ES#4096+C0DE E$< 
2 > *256+C0DE E4(3)#16+C00E £S(4>~ 
122332 

35 LET US-"" 

40 SCROLL 

45 PRINT E5 ; " "jCHRS <INT (P 
EEK E/1 A )+28>+CHRS (PEEK E-INT ( 
PEEK E/16 ) #16+28)+" " 5 

50 IF U4="" THEN INPUT U9> 

55 IF U4="M" THEN GOTO 10 

56 IF Ul="Z" THEN GOTO 100 

5 7 IF US-"" THEN GOTO 75 
60 PRINT U4< TO 2) 

65 POKE E , CODE U«#16+C0DE US (2 
)-476 

70 LET U5=U5 ( 3 TO ) 

75 LET E=E+i 

GO LET A=INT (E/256) 

85 LET 8=E-A*256 
90 LET ES=CHRS <INT < A/16 >+28) 
+CHRS (A-INT (A/16)#i6+28)+CHRS 
< INT (B/16)+28)+CHRS (B-INT (B/l 
6>*16+28> 

95 GOTO 40 
100 CLEAR 
105 DIM AS(2048> 

110 FOR A=1 TO 2048 
115 LET A5(A)=CHRS PEEK (A+3071 
9) 

120 NEXT A 

125 PRINT AT 21,0:"PR0NT0 PARA 
GRAUAR" 

130 PAUSE 4E4 

135 SAME "MICRO BUG" 

140 FOR A=1 TO 2048 

145 POKE A+307 19 ,CODE AS(A) 

150 NEXT A 



sistema grava na fita cassete uma copia 
do SGM, ou de tudo que jahouver sido 
digitado. 

Os blocos Assembler sao de digitagao 
direta, porem as listagens em mnemoni- 
cos requerem um cuidado maior (veja a 
listagem 2). Elas sao constituidas, na 
maioria das vezes, por quatro colunas. A 
primeira (a esquerda) corresponde aos 
enderegos em hexadecimal onde estao 
(ou estarao) os codigos de maquina. Na 
segunda coluna estao os codigos propria- 
mente ditos e na terceira coluna estao os 
mnemonicos correspon dentes a estes 
cddigos. A quarta coluna constitui uma 
opgao para comentarios e estes serao 
sempre referenciados por um ponto e 
vfrgula. 

Para digitar a listagem em mnemoni- 
cos, responda a pergunta ENDERECO? 
com o primeiro enderego da coluna 1 e 
a seguir introduza os cddigos da coluna 2. 

Toda vez que for digitar codigos de 
maquina, em blocos ou em listagens, 
nao esquega de faze-lo com a maior 
atengao possfvel, pois qualquer erro sera 
invariavelmente fatal, £ preferivel per- 
der-se um pouco mais de tempo na digi- 
tagao do que procurar um cddigo errado. 



Ainda com relagao a listagem 2, note 
que em ambas as rotinas o valor original 
do par HL € preservado, 0 SCROLL pa- 
ra cima ajusta a proxima impressao em 
AT 21,0 e o SCROLL para baixo em 
AT 0,0. Observagao: nos comentarios, 
algumas instrugoes LET e THEN sao 
omitidas para simpliflcar a explicagao; 
todos os valores, salvo os enderegos do 
prdprio SGM, s2o apresentados em deci- 
mal. 

A apresentaqAo 

E A IMPRESSAO DE STRINGS 

Todo programa que pretenda um 
mi'nimo de clareza deve conter alguns 
elementos que o identiflquem e criem 
uma distingao em relagao a outros pro- 
gramas. Alem disso, e importante man- 
ter a fonte, pois pode-se necessitar, no 
futuro, de informagoes acerca do siste- 
ma. Se a origem do programa for omiti- 
da, poderSo ocorrer problemas de infor- 
magSo dificeis de serem solucionados. 0 
credito do autor tambdm nao deve ser 
substituido pelo nome do usuario, pois 
tal atitude nSo resulta em nenhum ga- 
nho para o seu praticante, a nSo ser tal- 



vez a satisfagfto de ver seu nome na tela 
do video, 

0 SGM possui uma apresentagao bas- 
tante sofisticada, por£m sua mecanica e 
simples. 0 sistema todo funciona atrav^s 
de SCROLL, tanto para baixo como pa- 
ra cima (veja listagem 2), por£m a prin- 
cipal linha 6 sempre a da posigao 21. 
Quando se entra no sistema, ou quando 
se produz um RESET, e apresentado o 
nome MICRO BUG, seguido da fonte 
MICRO SISTEMAS e logo abaixo o 
nome do mddulo, se houver algum im- 
plementado. A posigao AT 21,0 contem 
o prompt “ > ” e o cursor (GRAPHICS 
4). 

Os comandos funcionam diretamen- 
te, sem label, e cada tecla corresponde a 
um comando. As teclas de S a Z sSo re?- 
servadas para o mddulo que e stiver im- 
plementado. 

A impressao do nome MICRO BUG, 
em caracteres grdficos, sera detalhada- 
mente discutida quando virmos a im- 
pressao de valores numericos, pois ela 
utiliza, atraves de um macete, a rotina 
de impressao de dois digitos hexadeci- 
mais. 0 principio de impressao das 



Listagem 2 



rot i na 


4SCRUP 


(scroll para cima) 




7860 


E5 






PUSH HL 


; ar«)u i va HL. 


7861 


2 A 


OC 


40 


LD HL , ( 400C ) 


; HL.=PEEK 16396+256*PEEK 16397 


7864 


E5 






PUSH HL 




7865 


11 


21 


00 


LD DE r 0021 


« DE-33 


7868 


19 






ADD HL. , DE 


-HL=HL+DE 


7869 


Di 






POP DE 




786A 


01 


D6 


02 


LD BC , 02D6 


5 BC=726 


786D 


ED 


BO 




L..DIR 


;produ 2 : o scroll 


786F 


OE 


41 




LD C , 4 1 


-C=65 


7871 


A7 






AND A 




7872 


ED 


42 




SBC HL , B C 


;HL“HL— BC 


7874 


22 


OE 


40 


LD ( 400E ) , HL 


;P0KE 1639(3, L e POKE 16399, H 


7877 


El 






POP HL 


■ recupera HL. 


7878 


C9 






RET 


? RETURN 


rotina KSCRDN 


(scroll para baixo) 




7879 


E5 






PUSH HL 


•arquiva HL 


787A 


2A 


OC 


40 


LD HL , ( 400C ) 


; HL = PEEK 163 9 6 +256# PEEK 16397 


787D 


E5 






PUSH HL 




787E 


01 


B4 


02 


LD BC,02B4 


;BC=692 


7881 


09 






ADD HL, BC 


«HL=HL+BC 


7882 


11 


21 


00 


L.D DE-0021 


? DE=33 


7885 


E5 






PUSH HL 




7886 


19 






ADD HL, DE 


;HL=HL+DE 


7887 


Dl 






POP DE 




7888 


E0 






EX DE , HL 


; inverts valores DE e HL 


7889 


ED 


B8 




LDDR 


pproduz scroll 


7888 


AF 






XOR A 


;A=0 


788C 


06 


20 




LD B , 20 


? B=32 


70BE 


23 






INC HL 


; HL.=HL+i 


!788F 


77 






LD ( HL ) , A 


;P0KE HL , A 


7890 


10 


FC 




DJNZ 78SE 


• B=B-i 2 IF B < >0 GOTO 788E 


7892 


El 






POP HL 




7893 


23 






INC HL 


; HL.= s HL+i 


7894 


IB 


DE 




JR 7874 


5 GOTO 7874 



5 
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rot i rii? IP fi- 1 n T ( i m P r & « s a o cl e s t r i n g s ) 



78C1 

78C4 

7807 

7808 

7809 
78 CB 
7800 
7808 
7 8 OF 
78DG) 
7BDi 



CD 

CD 

El 

7E 

£6 

D7 

08 

23 

ES 

00 

:18 



60 

60 



7F 

7E 



F4 



78 
7 <3 



CALL. 7860 
CALL 7860 
POP HI... 

LD A,(HL) 
AND 7F 
RST 10 
8 IT 7, (HL) 
INC HL 
PUSH HL 
RET NZ 
JR 7807 



jr G'OSUB * SCR UP 
5 GOSIJB SSCRUP 
p H l. t? n cl e r d « t;: a r a c: 

? A«PEEK HL 

pIF A >128 THEN LET A«A-i 

; PRINT CHRS A? 

pIF PEEK HI.. > i 28 THEN LET 

i HI...™HL+ i 

; repo ec STACK 

plF Z»D THEN RETURN 

s GOTO 7807 



28 .. 

ZM.i 



para imprimir 


i.i m a s 


p roced i men to 


leve s 


XKXX CD Cl 


78 .. . 


xxxH+3 32 2E 


28 37 


34 00 


38 2E 


38 39 


2 A 32 


26 B8 





<xi<y, *17 li 



o segu j nt:e» 

CALL 7801 

define MICRO SISTEMAS 



LD 



strings, por outro lado, baseia-se na sua 
defini$ao logo ap6s uma chamada 
CALL, o que em BASIC equivaleria a 
PRINT “texto” 

Isso 6 possivel pela manipulacgo do 
Stuck da Z80 (listagem 3). Logo ap6s a 
chamada, o sistema obtdm o enderefo 
de retorno, ou seja, o enderefo apos 
CALL, e passa a imprimir como caracte- 
res os bytes subsequentes. A cada byte 
impresso, o Stack 6 atualizado para que, 
no final, o sistema saiba para onde vol* 
tar. A sinalizagao de final de string 6 
feita peio bit 7 do ultimo cardter. Se ele 
estiver setado (— 1 ), entSo o sistema re- 
torna para a instrufao seguinte a string. 

Este artificio 6 usado pelo SGM para 
imprimir todas as mensagens do sistema 
e pode ser facilniente aiterado para 
outros usos. A maior caracteristica dele 
e que, na string definida, o ultimo cara- 
ter deve ser sempre em video inverso 
(repare, tambem na listagem 3, que o 
liltirno S de SISTEMAS deve ser em card- 
ter inverso, e que ap6s a impressao da 
string o programa retoma para executar 
a instrugdo em xxxx+17). 

TABELA DE COMANDOS, RESET 

E A ENTRADA NO MICRO BUG 

Para que o sistema responda as teclas 
pressionadas com a execufSo de um 
comando 6 preciso que haja algum tipo 
de processo do genero: IF INKEYS 
= “B” THEN GOTO... 

Na realidade, o processo utllizado no 
SGM 6 bastante diferente deste.ou seja, 



definiremos uma tabela de enderefos 
que corresponda a cada uma das teclas. 
Nosso intervalo vdlido serd de A a Z, 
sendo que qualquer outra tecla devera 
ser rejeitada pelo sistema. 

A tabela propriamente dita inicia no 
endere?o 7940 e vai atd o enderefo 7973. 
Cada dois bytes possuem o endere^o de 
execucao de cada comando (veja lista- 
gem 4). 

Quando se entra no MICRO BUG, ou 
apos um RESET, ou quando termina a 
execucao de um comando, o sistema 
fica aguardando que uma tecla/comando 
seja pressionada. Se para aquela tecla 
nao houver comando, o sistema informa 
com a mensagem COMANDO ENEXIS- 
TENTE. A este estado daremos o nome 
de Loop de Comando . (Na listagem 4, 
observe que os comandos de S a Z sao 
implementados automaticamente pelo 
mddulo especiflco. 0 enderefo 7A34 
equivale a COMANDO INEXISTENTE e 
deve constar de todas as letras cujos 
comandos ainda nao estejam no SGM). 

0 Loop de Comando (listagem 5) 
6 constituido por uma rotina bastante 
simples e que Funciona da seguinte for- 



Listagem 4 - — Tabela de Definifao 
dos Comandos 


7 940 


34 


7 A 


def 7 A3 4 


y c o m a n d o 


A 


7942 


34 


7A 


def 7 A34 


y c oman do 


B 


7944 


34 


7 A 


def 7A34 


y comando 


C 


7946 


34 


7 A 


def 7A34 


y c oman do 


D 


7948 


34 


7 A 


def 7A34 


y comando 


E 


794 A 


34 


7 A 


def 7A34 


y coman do 


F 


794C 


34 


7 A 


def 7 A 34 


; comando 


G 


7 9 4 E 


34 


7 A 


def 7 A3 4 


y comando 


H 


7950 


34 


7 A 


def 7A34 


y comando 


I 


7952 


34 


7 A 


def 7A34 


y c oman do 


J 


7954 


34 


7 A 


def 7A34 


y comando 


K 


7956 


34 


7 A 


def 7A34 


y comando 


L 


7958 


34 


7A 


def 7 A 34 


y c oman do 


M 


7 95 A 


34 


7 A 


def 7A34 


y comando 


N 


79.5C 

y ok:; r- 


3 4 

O A 


7A 

“7 A. 


def 7 A3 4 


y comando 


0 



7960 
7962 
7964 
7966 
7968 
796 A 
796C 
796E 
7970 
7972 



34 7 A 
34 7 A 
34 7 A 
34 7 A 
34 7 A 
34 7 A 
34 7 A 
34 7 A 
34 7 A 
34 7 A 



def 

def 

def 

def 

def 

def 

def 

def 

def 

def 



7 A 3 4 
7 A 34 
7A34 
7 A34 
7A34 
7A34 
7 A3 4 
7A34 
7A34 
7A34 



;• comando P 
y comando Q 
y comando R 
9 comando 8 
y coman do T 
y comando U 
; comando V 
y comando W 
y comando X 
y comando Y 
yeoman do Z 



i r 
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0 COMANDO M E AS PRINCIPAL ROTINAS DO SGM 



Listagem 5 ■— Loop de Comando 



ED 73 3E 
CD B4 79 
CD 2B OF 
21 27 79 
CB 56 
C4 10 78 
ED 7B 3E 
3E 12 
D7 

2A OE 40 
36 04 
CD AA 78 
CD D3 78 
FE 77 
28 F6 
FE 76 
28 F2 
D7 

CD AA 78 
D6 26 
38 16 



06 00 
4F 



5E 

23 

56 

21 4A 
E5 
D5 
C? 

CD Cl 
28 34 
33 29 
2E 33 
2E 38 
33 39 
CD 60 
CD 60 
18 AA 



78 

32 26 
34 00 
2A 3D 
39 2A 



LD <793E),SP 
CALL 79B4 
CALL 0F2B 
LD HL,7927 
BIT 2, < HL) 
CALL NZ , 7810 
LD SP , < 793E) 
LD A, 12 
RST 10 

LD HL, ( 400E) 
LD ( HL ) , 04 
CALL 78AA 
CALL 78D3 
CP 77 
JR 7 . , 7 AOS 
CP 76 
JR z,7A08 
RST 10 
CALL 78AA 
SUB 26 
JR C , 7A34 
CP 1A 
CCF 

JR C,7A34 
RLA 

LD B , 00 
LD C , A 
LD HL , 7940 
ADD HL,BC 
LD E , < HL > 

INC HL 
LD D, (HL) 

LD HL, 7A4A 
PUSH HL 
PUSH DE 
RET 

CALL 78C1 



CALL 7860 
CALL 7860 
JR 79FC 



ma: os comandos sSo chamados como se 
fossem sub* rot in as. Para o retomo ao 
Loop de Comando, basta haver uma 
instru$ao RET, mas em comandos mais 
complexos pode-se langar mao de um 
RESET que, dependendo do enderefo 
de JUMP, vai produzir um resultado 
diferente. 

No endere 90 79EE o RESET 6 total, 
havendo a impressao do tftulo, fonte e 
mddulo implementado. No enderefo 
79FC o RESET n§b produz altera$6es 
na tela de video, o que pode causar 
alguma confusao com o cursor. No en- 
derego 7A4A o RESET produz dois 
SCROLL para cima, repondo o cursor 
na posi^So original 21,0. Observa^aoina 
listagem 5, note a forma como foi en- 
contrado o endere§o de execufao do co- 
mando e o modo como ele foi chamado 
(o RET do endere^o 7 A3 3 equivale a 
um GOTO, pois usa a manipulagSo do 
Stack como forma de desvio controlado). 



jarquiva SP para reset 
y imprime titulo e fonte 
{limplementa SLOW 
•verifica se ha' modulo 
i up lenient ado 

j recup era SP 
y prompt ">" 



y cur sor 

yidentifica tecla pressionada 
se houver 

{ignore se for DELETE 

yignore se for ENTER 

y imprime tecla do comando 
yespera tecla ser ltberada 
ycalcula valor da tecla 
ytecla fora da faixa 
imprime COMANDO INEXISTENTE 



» mul t i p 1 i ca tecla par 2 
yBC= valor modulo para a 
TA8ELA DOS COMANDOS 
ybase da tabela 

■ DE- ender de execussao do 
comando 

yprepara retorno e execussao 
do comando 

yexecuta comando 
; imprime mensagem 
COMANDO INEXISTENTE 



-scroll para cima 
yscrol 1 para c i ma 
-aguarda novo comando 



AS ROTINAS 
OPERACIONAIS DO SGM 

Existem ainda outras rotinas opera- 
cionais no SGM, mas nSo as veremos de- 
talhadamente agora uma vez que algu- 
mas sao bast ante complexas e necessi- 
tam de um certo conhecimento de lin- 
guagem de mdquina. Mais na frente ire- 
mos retomar a elas, mas para os que jd 
conhecem o Assembler a figura 4 con- 
tain uma lista com os respectivos nomes 
e endere^os. As rotinas estao na listagem 
6 e devem estar no SGM antes de fazer- 
mos a nossa primeira entrada nele. 

O COMANDO B 

Quando fizermos a nossa primeira 
entrada no MICRO BUG, devemos ter o 
cuidado de ter implementado o coman- 
do B, pois serd ele quern produzird o 
retomo ao BASIC. A utiliza^ao deste 




00 C9 F5 IF IF IF IF CD 
47 78 Fi F5 E6 OF E5 21 
27 79 CB 46 El 20 09 CB 
5F 28 02 EE 88 D7 Fi C9 
C6 1C 18 F9 

D6 DE 47 OE 01 28 04 CB 
11 10 FC 3A 26 79 A9 32 
26 79 3E FF F5 CD BB 02 
7C FE FE 38 F8 06 03 18 
03 F5 06 18 AF OB B8 20 
FC FI C9 



CD BB 02 
44 4D CD 
C8 FE 77 
FE 74 28 
78 FE 75 



7C FE FE 30 F0 
BD 07 7E FE 76 
C8 FF. CO 28 ID 
24 FE DE D4 96 
CA EE 79 00 00 



00 00 00 00 00 00 



7903 


CB 77 


C8 


18 


CB i 


CD 


2A 


OA 


790B 


01 01 


15 


CD 


F5 


08 


18 


CO 


7913 


3A 27 


79 


EE 


10 


32 


27 


79 


791B 


18 B6 














7926 


00 01 


00 


00 


00 


00 


00 


00 


792E 


00 00 


00 


00 


00 


00 


□0 


00 


7936 


00 00 


00 


00 


00 


00 


00 


00 


793E 


00 00 














7974 


BO F4 


BB 


BO 


BB 


4F 


BB 


40 


797C 


BB 40 


FB 


B4 


F4 


OB 


OB 


B4 


7984 


9A 84 


08 


OD 


50 


3F 


50 


8D 


798C 


50 80 


F5 


08 


D5 


08 


D5 


03 


7994 


82 D5 


08 


OD 


50 


OD 


78 


ID 


7990 


50 80 


D7 


3A 


D5 


08 


D5 


FB 


79A4 


80 D5 


B 8 


B2 


AB 


7D 


52 


A2 


79AC 


AB 70 


DA 


B 7 


2A 


B7 


2A 


B7 


79B4 


CD 2A 


OA 


21 


27 


79 


CB 


86 


79BC 


2E 74 


06 


40 


7E 


CD 


3E 


78 


79C4 


23 10 


F9 


2E 


27 


CB 


C6 


CD 


79CC 


C7 78 


32 


2E 


28 


37 


34 


00 


79D4 


38 2E 


38 


39 


2A 


32 


26 


38 


79DC 


00 17 


ID 


25 


24 


20 


97 


01 


79E4 


00 15 


CD 


F5 


08 


C9 






7A52 


2A OE 


40 


36 


04 


CD 


AA 


78 


7A5A 


CD D3 


78 


2A 


OE 


40 


36 


00 


7A62 


2B FE 


76 


20 


02 


7E 


C9 


FE 


7A6A 


77 20 


1A 


7E 


FE 


76 


22 


OE 


7A72 


40 20 


24 


CD 


Q l 


7 0 


29 


2A 


7A7A 


31 2A 


39 


2A 


00 


2E 


31 


2A 


7A82 


2C 26 


B 1 


18 


C3 


E5 


21 


27 


7A8A 


79 CB 


66 


El 


28 


02 


CB 


FF 


7A92 


D7 23 


23 


7E 


FE 


76 


C8 


CD 


7A9A 


AA 78 


18 


B4 


01 


03 


15 


CD 


7AA2 


F5 08 


2A 


□ E 


40 


11 


00 


00 


7AAA 


7E FE 


□ D 


28 


2D 


00 


7E 


B7 


7AB2 


C8 FE 


1A 


C8 


D6 


1C 


38 


10 


7ABA 


FF- 10 


30 


DC 


EB 


06 


04 


29 


7AC2 


10 FD 


4F 


09 


EB 


23 


18 


E6 


7AC-A 


CD Cl 


78 


29 


2E 


2C 


2E 


39 


7A02 


34 00 


2E 


31 


2A 


2C 


26 


Bi 


7 AD A 


18 A9 


23 


7E 


B7 


C8 


FE 


1A 


7 AE2 


C8 D6 


1C 


38 


E3 


FE 


OA 


30 


7AEA 


DF E5 


F5 


21 


DO 


00 


3E 


OA 


7AF2 


□ 6 08 


29 


17 


30 


01 


19 


10 


7AFA 


F9 Fi 


4F 


09 


EB 


El 


18 


DA 


7B02 


3A 26 


79 


CB 


5F 


CC 


B7 


78 


7B0A 


CB 57 


20 


OD 


7C 


CD 


3£ 


78 


7B12 


7D CD 


3E 


78 


AF 


D7 


D7 


D7 


7B 1 A 


C9 E5 


IE 


FF 


01 


FO 


D8 


CD 


7B22 


El 07 


01 


18 


FC 


CD 


El 


07 


7B2A 


01 9C 


FF 


CD 


El 


07 


OE 


F6 


7B32 


CD El 


07 


7D 


CD 


EB 


07 


2A 


7B3A 


OE 40 


06 


09 


7E 


05 


2B 


FE 


7B42 


76 20 


i F9 


AF 


D7 


10 


FD 


Ei 


7B4A 


C9 
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comando 6 direta, ou seja, quando o 
sistema estiver no Loop de Comando 
bastard pressionar a tecla B. Para a im- 
plementa^Zo, faya as modificac6e$ da 
listagem 7. 

0 COMANDO M 

0 comando M ser£ detalhado nos 
prbximos tbpicos pois requer uma s£rie 
de cuidados para a sua compreensao - 
no momento estamos muito mais inte- 
ressados em ver a coisa fundonar do que 
na teoria propriamente dita, certo? A 
listagem 8 contain todo o comando que 
deve ser implementado da mesma forma 
que o comando B (n§o esquecer de alte- 
rar a Tabela de Comandos). 

O funcionamento do comando M 
possui, de certa forma, toda a mecanica 
do sistema MICRO BUG. Ele 6 o prind- 
pal recurso do SGM, pois permite que to- 
da a membria do micro seja vasculhada e 
que, na RAM, possa haver modificagoes. 
Lembre-se, no entanto, que nao d o co- 
mando quern altera ou modifica os 
dados e sim o operador; portanto, antes 
de fazer qualquer coisa convem saber o 
que se estd fazendo. 

No Loop de Comando, ao ser pressio- 
jnada a tecla M, o sistema imprime M, 
pula um espatjo e passa a esperar um ende- 
re^o. Se a tecla ENTER for pressionada, o 
sistema utilizard o ultimo endere§o utili- 
jzado pelo comando M anterior. Caso 
pontrdrio, o que for digitado serd inter- 
pretado como um endefefo em hexade- 
cimal- Apos a digitado de um endere^o, 
o sistema o imprimird na ultima linha, 
seguido de seu conteudo em hexadeci- 
mal. 

| Nesse esfagio, muitas op$oes podem 
ser utilizadas. Sdo elas; tecla K (+) 
[avan?a um endere^o); tecla J (-) (re- 
trocede um enderefo); tecla BREAK 
(interrompe o comando e retorna ao 
loop de Comando); e teclas 0, 1, 2, 3, 
h 5 > 6, 7, 8, 9, A, B, C, D, E e F (sao 
[nterpretadas como um dado em hexa- 



‘EBYTE(783E> 
SCONTR (789A) 
5CONT ( 78AA > 

!ETEMP 0 ( 70E) 7 ) 
JKELY ( 78D3 ) 
5CL..S <798 ) 
$GRAPH<7910> 
5CURS0R (7A52) 
5UALDE (7A9E > 
SENDER (7B 02) 



rotina de? impressao de um valor em hexadecimal 
rotina de man i pul acao dos bits de MPLAG 
rotina de espera ate que a tecla pressionada sp ia 
1 ifaerada 

retar da a execueao do sistema por algum tempo 

espera por uma tecla pressionada 

produs um CL.S no video 

modo GRAPHICS de SCIJRSOR 

rotina do cursor 

obtem um valor numerico digitado pelo usuario 
imprime um enrJereco 



Figura 4 



decimal para modificar o conteudo do 
enderego na posifao AT 21,0). 

ENTRANDO NO MICRO BUG 

Se voce leu o texto com aten$2o, se- 
guiu k risca as instn^oes e j£ digitou tu- 
do, tanto os blocos Assembler quanto as 
listagens em mnemonicos, entao est£ na 
hora de entrarmos no SGM e verificar- 
mos se, na pratica, a teoria funciona. 

Em primeiro lugar, fa?a uma copia 
do SGM, pois ainda n£o sabemos se 
tudo funciona direitinho. Em segundo 
lugar, de um NEW, pois a partir de ago- 
ra, para continuarmos a digitar, iremos 
utilizar o prbprio SGM. Dg entao um 
RAND USR 31210 e M vamos nos... 

Se correu tudo bem, no alto da tela 
irA aparecer MICRO BUG em letras gar- 
rafais, a fonte MICRO SISTEMAS e o 
cursor no canto esquerdo do video. NSo 
vacile agora e teste o comando B como 



primeira providencia, pois nao queremos 
que o micro perca o rumo de casa. 

Retome ao MICRO BUG e vamos en- 
tao ao comando M. Digite M e, como o 
sistema deve estar apontando para a 
ROM, vamos digitar um enderefo qual- 
quer (na falta de um melhor serve 
4082). O resultado deve ser instantaneo, 
caso contdrio deve existir erro em 
algum lugar. 

Teste a tecla K(+). Pressione-a por al- 
gum tempo e espere a tela ficar cheia. 
Agora pressione J(-) e veja o resultado. 
Vamos fazer outro teste: digite SHIFT S 
e retome ao teste das teclas K e J. Veja 
a diferenja, pois SHIFT S chaveia a ve- 
locidade de impressSo (se pressionada 
novamente, retorna k velocidade lenta). 
Digite agora SHIFT 3 e o conteudo dos 
bytes seri apresentado como um valor 
decimal (SHIFT 3 retorna k condi$5o 
inicial). SHIFT E faz a mesma coisa, 
porem com o endere^o. 



Listagem 7 — Comando B 



7 94a 


ID 


79 




clef 791 D 


79.1 D 


CO 


C7 


78 


CALL 78C7 


7920 


26 


38 


2E 




Mi 








7 92 A 


El 






POP HL 


7 925 


C9 






RET 



comando B 



j imprime sem scroll 
; ASIC 

j limp a STACK 
j retorna ao Basic 



OS ANJOS DA GUARDIAN 



Establlizador Etetnlnico 

i 



Protegao ultra-r£pida contra variapdes 
da tenslo da rede em ate ± 22 % 
estabilizando-a em + 1 %. 
Capacida'de de 
0.25, 0.4. 0.6. 0.8 
e 1 KVA. 



Protepao integral para o seu Micro 



Gerador Eletrbnlco 

GERATRON 

Quando a fade aldtrica (altar. GERATRON 

° c °nic se nana 



R. Dr. Gamier, 579 - CEp 20971 - Rocha -TeiSTpABX(02l) 261-6458 

Representante Sao Paulo 



MUK 

Linha Especial para Micros 

Protegao completa para o seu micro, 
manta ndo a alimentagao altamente 
estavel e aem intermpgao Forma da 
onda aenoidal. Capacidades de 0.25, 0.4 
0.6, 1,1.5, 2.5, 3.5 e 5 KVA. Opera com 
quatro baterias comuns de 12 volts. 



GUARDIAN 

— EQUIP. ELETRON. LTDA. 

09 (02f) 34016 • Ri0 Janeiro - RJ 
- Tel.. (011)270-3175 Repress mantes em todas as capitals. 







O COMANDO M E AS PRINCIPALS . . . 



Listagem 8 — Comando M 



Como jd vimos, os conteudos podem 
ser modificados, bastando que o usuario 
digite um digito hexadecimal. Essa con- 
difSo pode ser alterada por SHIFT D, o 
que faz o sistema aceitar um valor deci- 
mal. A entrada em decimal, por outro 
lado, requer a tecla ENTER para validar 
as modiflca^oes. 

Na realidade, o MICRO BUG funcio- 
na com numeros tanto em decimal quan- 
to em hexadecimal. A sua cond^ao nor- 
mal e, de preferencia, em hexadecimal, 
por serem numeros de facil manipula$ao . 
No entanto, se o usudrio desejar intro- 
duzir um endere£o em decimal, basta 
anteceder o valor pelo especiflcador $ 
(desse mo do, 4082 em hexadecimal equi- 
vale a $16514 em decimal). Essa condi- 
$2o tambem podera ser alterada, mas 
isso sera visto mais adiante. Vale relem- 
brar que a partir de agora usaremos o 
proprio SGM para as novas implemen- 
ta?5es. 



7958 713 7 B 



de-F 7 B 7 8 



comando M 



Este projeto vem sendo desenvolvido pela equi - 
pe do CPD de MICRO SISTEMAS, sob a coor- 
denapao de Renato Degiovani. 



7B4B 


2 A 


2D 


79 


23 


22 


2D 


79 


CD 


71353 


60 


78 


CD 


02 


713 


7E 


21 


26 


713513 


79 


CB 


46 


20 


03 


C3 


3E 


78 


7B63 


4F 


AF 


47 


C3 


98 


OA 


2 A 


2D 


713613 


79 


2B 


22 


2D 


79 


01 


15 


00 


713 73 


A7 


ED 


42 


CD 


79 


78 


18 


DA 


7B7I3 


AF 


D7 


CD 


52 


7 A 


87 


28 


013 


7B83 


CD 


9£ 


7A 


E8 


2B 


22 


2D 


79 


7BBB 


CD 


60 


78 


CD 


4B 


713 


CD 


D3 


7B93 


78 


13 7 


C8 


FE 


30 


28 


F4 


FE 


7B9B 


:i. C 


38 


F3 


FE 


2C 


38 


07 


FE 


7BA3 


2F 


CC 


69 


7B 


18 


E8 


F5 


01 


7 13 A 13 


OB 


i 5 


CD 


F5 


08 


3 A 


26 


79 


7 B B 3 


CB 


77 


20 


29 


F 1 


D7 


CD 


A A 


713 B 13 


78 


D6 


1C 


A 7 


17 


17 


.17 


17 


7BC3 


32 


713 


40 


CD 


D3 


78 


FE 


1C 


7 13 C 13 


38 


F 9 


FE 


2C 


30 


F5 


D7 


D6 


7 13 03 


1. C 


FD 


86 


7B 


2 A 


2D 


79 


77 


7 BOB 


CD 


AA 


78 


:i. 8 


AE 


FI 


D7 


CD 


7 13E 3 


52 


7 A 


0 1 


OB 


15 


CD 


F 5 


08 


7 BE 13 


2 A 


OE 


40 


11 


00 


00 


CD 


DD 


70 F 3 


7 A 


713 


1 8 


EO 














ATEN^AO LOJAS E REPRESENTANTES 



Novas lojas surgem em todas as partes do 
pais, enquanto as ja existentes ampliam seus 
negocios e diversificam suas linhas de produtos 
e servigos. Elas sao o termometro deste incrivel 
mercado. 

Para acompanhar esse acelerado crescimento 
a ni'vel nacional, MICRO SISTEMAS esta precisando 
do auxflio destas empresas, mediante o 
fornecimento de informagoes basicas sobre suas 
atividades. 

Portanto, se voce e Diretor ou Gerente de uma 
Loja, ou Revendedor de sistemas ou suprimentos 
de microcomputadores, mantenha o nome de 
sua empresa presente e atualizado em nosso 
cadastro de informagoes, mandando-nos os 



seguintes dados: 

• RazSo Social 

• GGC 

• Enderego e Telefone 

• Produtos que comercializa (hardware, software, 
publicagoes, moveis etc) 

• nome dos Diretores/ Gerentes 

• Um breve historico da firma 

E quaisquer informagoes que julgar 
importantes. 

Estes dados vao nos ajudar a fazer uma 
cobertura mais Completa do mercado brasileiro 
de microinformatica, aumentando sua divulgagao 
e, eventualmente, transformando em noticia o 
nome de sua empresa. 



Reda^ao de MICRO SISTEAAAS 

Av. Presidente Wilson, 165/grupo 1210, Centro, Rio de Janeiro, RJ, CEP 20030 

Tels.: (021) 262-5259 








& SOLUCAQ NAII F PRflRI FMA g 

nao importa o tamanho de seu problema, 
nos temos a solucao na medida exata ! 




LINGUAGEM BASIC 
16 K DE MEMORIA 
V E LOCIDADE DE 
TRANSFERENCE 14VE- 
ZESMAIS RAPID A 




MODULAR 
LINGUAGEM BASIC 
48 K DE MEMORIA 
COM PAT fVEL COM 
SOFTWARE DO CP-500 



LINGUAGEM BASIC 
48 K DE MEMORIA 
ATE 4 DRIVES 
SAIbA PAR ALE LA SE- 
RIAL 




VELOCIDA0E 100 CPS 
MATRIZ 9x7 
INTERFACE: 
PARALELA 
SERIAL 




AC ESSO RIOS 



APROVEITE! 



SOFTWARE • MESAS «DIS- III PROMOCOES ESPECIAIS • 



QUETES 



ARQU1VOS 



formulArios conti' 



FINANCIAMENTQ • LEA- 



NUOS • ESTABILIZADORES S,NG • CONSORCIO • CAR- 
DE TENSAO • UNIDADES TOES DE CREDITO: CREDI- 
DE DISCO FLEXIVEL* ETC. CARD. NACIONAL. ELLO. 



filcres 

Fileres Importagao e Rap rase ntapdes Ltda. 

Rua Aurora. 165 - CEP 01209 - Sao Paulo - SP 
Talax 1131298 FILG BR - PBX 223-7388 - Ramais 2.4. 

12, 18, 19 — Diretos: 223-1446, 222-3458, 220-5794 e 
220-9113 - Reembolso - Ramal 17 Direto: 222-0016 - 220-7718 




Neste artigo, iremos aumentar o vocabulario do compilador FORTH pubficado em MS 22, 
inclusive criando comandos bastante uteis para a programaQao de jogos 



Outras palavras em 

FORTH 



Ivan Camilo da Cruz 



E m MICRO SISTEMAS numero 22, foi apresentado 
um compilador para a linguagem FORTH de autoria 
de Antonio Costa. Este artigo introduziu aos leitores 
desta revista esta fantistica linguagem, que consegue 
ser ao mesmo tempo simples, compacta, rdpida e poderosa. 

A linguagem FORTH e muito flexfvel. Com ela, ao contra* 
rio das outras linguagens, n6s podemos definir novos coman- 
dos a partir dos ja existentes, ou entSo diretamente em lingua- 
gem de maquina. Neste artigo, desenvolveremos novos coman- 
dos extremamente uteis, inclusive um que permite salvar o 
compilador FORTH em disco. Mas, atengSo!!! Todas as pala- 
vras aqui propostas devem ser criadas usando base 16. Para 
passar para a base 16, utilize o comando HEX definido no 
artigo publicado no numero 22. 

A possibilidade de incluir novos comandos, entretanto, cria 
uma dificuldade: e necessirio lembrar quais as palavras que yi 
foram definidas em nosso FORTH. Por isso, alguns FORIHs 
trazem em seu vocabulario a palavra VLIST ou outra similar, a 
qual serve para listar o vocabulario. (E possivel implementar 
VLIST neste compilador, e e' o que faremos mais adiante). 

Uma palavra FORTH, na versSo que foi apresentada em 
MICRO SISTEMAS, flea armazenada na memoria da seguinte 
forma: 

• I byte com o numero de letras da palavra; 

• a palavra; 

• 2 bytes com um link com a palavra anterior; 

• 2 kbytes com o endere^o do codigo de maquina associado a 
ela; 



• parametros (dados ou endere90s de outras palavras). 
Vamos usar como exemplo a palavra END,: 



ENDERECO 


CONTEUDO 


EONENTARIOS 


6177 


04 


Humero de letras da palavra 


6178 


"EN0," 


A palavra 


617C 


65 61 


Link com a palavra 
anterior (FTOKEN) 


617E 


OA 5E 


Endereco da rotina eM linguagea 
de maquina associada com esta 
palavra. 


6180 


£B 65 


Endereco da palavra 


6182 


2F 66 


Endereco da palavra "HERE" 


6184 


EG 62 


Endereco da palavra 


6186 


03 6B 


Endereco da palavra "C," 


6188 


F2 SO 


Endereco da rotina de retorno. 



Note que todos os endere^os est£o na ordem LSB-MSB (by- 
te menos significativo — byte mais significative). A primeira 
palavra tem link = 0 para indicar o inicio do vocabulario. Co- 
mo podemos ver, para listar o vocabuldrio FORTH n6s deve- 
mos come9ar pelo fim e terminar no inicio. 

Assim sendo, para listar o diciondrio bastaria criar uma pa- 
lavra que tirasse o endere90 da pilha, listasse a palavra associa- 
da a ele e em seguida colocasse na pilha o link desta palavra 
com a anterior, repetindo a execu^o desta palavra ate que o 
link encontrado fosse zero. Porem, nffo basta somente isso... 

Nesta versao do FORTH existem dois vocabularios. Aldm 
do vocabulario comum, existe um outro, que se chama voca- 
bulario de compila9ao. 0 vocabuidri'o de compila9do tem a 
mesma estrutura do vocabulario comum, com apenas uma dife- 
ren9a: o endere90 de sua ultima palavra 6 dado por COMPI- 
LER® , enquanto que o endere90 da ultima palavra do voca- 
bulario comum e obtido pela palavra ENTRY. 
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VAMOS A IMPLEMENT AO 

A paiavra que lista uma unica palavra sera escrita em lin- 
guagem de mdquina para aproveitar uma sub-rotina que est5 
incluida no compilador. Esta rotina come$a em SE47H e 
termina em 5E50H, e sua fungffo e listar uma string cujo com- 
pnmento est4 no registrador E e cujo endereqo inicial esta no 
registrador HL. No retorno, HL aponta para a ultima letra da 
string. Eis a nossa palavra escrita em linguagem de maqui-^ 

El POP HI J ■ 

5E L r, pr ui , , tira endereco na puna 

; fe ruiMero de letras da 

23 INC HL 5 pala r a 

5 aponta para o inicio 

SE in c i ? aponta para 0 llf,k 

23 iwr m,’ U » carrega o link no par 

56 *- I J* -gistradorea 

05 pliqu nc ’ " 

C3 FE 50 JP NEXT { reJornV^ PUf ” 

Para implementar esta mesma palavra em FORTH, digite: 

P^ E r TE sc I r TA ^ A n ftVRA E1 C ’ 5E C > 23 C ’ CD C » 5E47 , 

23 C, 5E C, 2a C, 53 C, 05 C, NEXT 

Muita atenfffo, pois pelo menos um espa$o deve ser coloca- 
do entre cada simbolo da linguagem (numeros ou palavras). A 
palavra NEXT encarrega-se de colocar os bytes C3 FE 5D. 

Agora precisamos implementar uma palavra que liste um 
dos vocabuldrios completamente. Ela ira buscar na pilha o 
enderefo da ultima palavra do vocabulario. Para implementa- 
la, digite: 

: LISTA- VOC 
BEGIN 

LISTA-PALAVRA 
ASPACE DUP EilIT EMIT 
HUP 0= 

UNTIL 

CROP 

Observe que esta palavra usa as palavras BEGIN c UNTIL 
que foram definidas em MICRO SISTEMAS mimero 22. Voce’ 
devera inclui-las no vocabuMrio antes de definir a palavra 
LISTA-yOC. ] 

Finalmente, vamos implementar a palavra VLIST, a qual 
listara os dois vocabularios: 

i VLIST 

CR ENTRY LISTA-VOC 
CR COMPILER 0 LISTA-VOC 
CR 



PALAVRAS UTE1S EM JOGOS 

FORTH £ uma linguagem muito boa para a criaqSo de jo- 
gos. Existem, inclusive, algumas palavras que s£o imprescin- 
diveis para isto, como por exemplo: INKEY (vane o teclado 
sem esperar pelo pressionamento de uma tecla); P@ (le um 
byte de uma porta); P! (transmite um byte para uma porta); 

um Ponto na tela); RESET (resseta um ponto na 
tela); POINT (testa se um ponto esta setado ou nao). Vamos 
entao, implementar todas estas palavras. 

• INKEY - Faz uma varredura do teclado. Se alguma tecla 
estiver sendo pressionada, o codigo desta sera colocado na pi- 
Ina; caso contrdrio, um zero sera colocado na pilha: 



CARO CONSUMIDOR 



CD 2B 00 
6F 

26 00 
E5 

C3 FE 50 



varre teclado 
carrega L com o codigo 
da tecla pressionada 
e H coa 0 
coloca na pilha 
retorna 



Mats barato imposstvel. 
E o cliente e quern 
faz o financiamento 



TK 2000 
TK 85 
Dactron 

CP 500 c/2 Drives 

Intellivision 

Monica 

Drives 

Diskettes 

Jogos p/TK 2000 - a partir de 
Jogos p/ intellivision - a partir de 
Placas CPM Progus 
Programas Aplicativos 
Fitas p/ Video Cassete 
Cabo p/lmpres$ora 
Mesas p/Computador 
Mesas p/lmpressora 



CrS 849.850,00 
Cr$ 369.850,00 
Cr$ 1.299.000,00 
Cr$ 3.900.00,00 
CrS 240.000,00 
Cr$ 1.390.000,00 
Cr$ 649.850,00 
Cr$ 6.300,00 
CiS 9.000,00 
CrS 25.000,00 
Cr$ 200.000,00 
Cr$ 20.000,00 
CrS 17.500,00 
Cr$ 90.000,00 
varla de acordo 
com o modelo 



Temos diversos Outros produtos com o 
melhor prego do mercado. Os pregos sao da 
ORTN do mes de Abril, podendo aumentar 
ou diminuir de acordo com os produtos que 
estarao em promogao da semana. 

Temos Curso de Basic para adultos e 
criangas com aulas teoricas e praticas com 
Micros. 

Diversas turmas e horarios. 

Venha fazer-nos uma visita. 



<b T e 




BRASILTRADE CENTER 

Av. Epitacio Pessoa, 280 (Esq. com Vise, de 
Piraja) (Aberto diariamente ate as 22:00h) 

CEP 22471, tels.: (021) 259-1299, 259-1499 e 259-1542. 
Assembleia, 10 - loja 112 — Centro Empresarial 
Candido Mendes. 
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OUTRAS PALAVRAS EM FORTH 



Em FORTH, 

4 CREATE INKEY CD C, SB , 6F C, S6 C, 0 C, E5 C, NEXT 

• P@ — Le um byte da porta cujo numero esta na pilha; o 
byte sera colocado na pilha: 



D9 




EXX 




Cl 




POP 


ec 


ED 


58 


IN 


E,(C) 


16 

05 


00 


LD 

PUSH 


0,0 

DE 


09 




EXX 




C3 


FE 50 


JP 


NEXT 



; numero da porta 
J le byte 



; colp^byte na pilha 

Em FORTH, 

CREATE P0 D9 C, Cl C, ED C, 58 C, 16 C, 0 C, D5 C, D9 C, NEXT 



10 


FD 




OJNZ 


4F 






LD 


7A 






LD 


F6 


3C 




OR 


57 






LD 


1A 






LD 


87 






OR 


FA 


?? 


?? 


JP 


3E 


80 




l LD 


47 






— >LD 


Fi 






POP 


B7 






OR 


78 






LD 


28 


11 




JR 


12 






LD 


FA 


r? 


12 — 


JP 


79 




! 


LD 


2F 




J 


CPL 


4F 




! 


LD 


1A 




( 


LD 



HERE-06 

C, A 
A,D 
3C 

D, A 

A,<DE) 

A 

M,H£RE+4 

A, 80 

B, A 
AF 
A 

A, 8 

Z,KER£+11 

( DE ),A ! 

H,HERE+0C • 
A,C ! 

i 

C, A i 

A,( DE ) ! 



ta 

te 



P! — Transmite um byte para uma porta. 0 numero da por- 
esta no TOS e o byte em 20S. Esta palavra 6 particularmen- 
util na cria?ffo de efeitos sonoros: 



A1 

12 

D9 

C3 FE 5D 
81 











18 F8 


JR — 


HERE-08 










A1 


AND 


C 


D9 


EXX 






21 00 00 


LD 


HL,0000 


Cl 


POP 


BC 


; porta 








D 1 


POP 


OE 


; byte 


28 01 


JR 


Z,HERE+1 


ED 59 


OUT 


<C),E 


j transMite 


2C 


! INC 


L 


09 


EXX 






E5 


— >PUSH 


HL 


C3 FE 5D 


JP 


NEXT 




18 EF 


JR 


HERE- 11 



AND 

L0 <-- 
->EXX ! 

JP ! 
■>0R ! 



C 

(0E),A 

NEXT 

C 




os outros bits, 
salva a mascara em C 
DE aponta para o cara- 
ctere da tela onde es- 
ta' o ponto. 
carrega o carac. em A 
e' caractere grafico? 
sim, salta 
nao, mas agara e' 
salva caractere ea B 
tira flag da pilha 
testa 

recupera caractere 
flag=0? sim, pula 
recoloca car. na tela 
flag=80? sim, pula 
coloca Mascara ent A 
complement a 
recoloca em C 
coloca caractere gra- 
fico em A 
reseta o ponto 
recoloca o caractere 
recupera registradores 
e re torn a 
seta o ponto 
volt a 

testa o ponto. 
flag de retorno da 
palavra POINT 
ponto esta' resetado? 
nao, L=01 
coloca na pilha 
volta 



Em FORTH, 

CREATE P! D9 C, Cl C, D1 C, ED C, 59 C, D9 C, NEXT 

Agora, antes de passarmos para as palavra s SET, RESET e 
POINT, vamos criar uma palavra chamada GRAF em Assem- 
bler, que atuara como uma sub-rotina das outras tres pala- 
vras. Esta palavra foi baseada em uma rotina do interpretador 



BASIC: 












D9 








EXX 






; salva registradores 


Di 








POP 




DE 


; tira coordenada x 


78 








LD 




A,E 


; e coloca em A 


FE 


30 






CP 




30 


; >= 48 (decimal)? 


58 


18 






JR 




C,HERE+18 


; nao, salta 


21 


7? 


?? 




! LO <- 


- 


HL,HERE+0B 


; sim, impriMe mensagem 


IE 


OC 






! LD 




E,0C 


; de erro 


CD 


47 


5E 




! CALL 




5E47 




09 








! EXX 






; recupera registradores 


C3 


FE 


50 




! JP 




NEXT 


5 e retorna. 


46 


4F 


52 


41 


! OEFM 




'FORA DA TELA' 




20 


44 


41 


20 


! 








54 


45 


4C 


41 


! 








16 


FF 






— >LD 




D,FF 




14 








— >INC 




D 


; D=quociente da divisao 


06 


03 






! SUB 




03 


; do registrador A por 


30 


KB 






—JR 




NC, HERE-5 


; tres 


C6 


03 






ADO 




03 




4F 








LD 




C,A 


; C=resto 


El 








POP 




HL 


; retire coordenada y 


70 








LD 




A,L 


; e coloca em A 


FE 


80 






CP 




80 


; >= 128 ( decimal )? 


30 


BB 






JR — 


- 


NC, HERE-28 


; sim, volta e imprime 
















; Mensagem de erro 


87 








ADD 




A 


; nao, multipl. por 2 


5F 








LD 




E,A 


; e coloca ein E 


06 


02 






LO 




6,02 




7A 








— >LD 




A,D 


; move D e E duas veses 


IF 








! RRA 






; para a direita assim o 


57 








1 LD 




D,A 


; bit 1 de E vai para a 


7B 








! LO 




A,E 


; flag CARRY e o par DE 


IF 








\ RRA 






; aponta para o carac. 


5F 








! L0 




E,A 


; grafico que conte» o 


10 


F8 






DJNZ 




HERE-08 


; ponto. 


79 








LD 




A, C 


; Calcula a posicao do 


BF 








ADC 




A 


; ponto dentro do carac. 


3C 








INC 




A 


; grafico usando a for- 
















; mula ( 2#C >+l+CARRY 


47 








LD 




8, A 


; coloca a posicao dc 
















; ponto em 6 


AF 








X0R 




A 


; cria uma mascara com 


37 








SCF 






; o registrador A setan- 


8 F 








— >A0C 




A 


; do o bit apontado pelo 



valor de B e resetando 



Em FORTH, 

CREATE GRAF 09 C, D1 C, 7B C, FE C, 30 C, 3B C, 18 C, 

21 C, HERE B + , IE C, 0C C, CD C, 5E47 , D9 C, C3 C, 5QFE , 

46 C, 4F C, 52 C, 41 C, 20 C, 44 C, 41 C, 20 C, 

54 0, 45 C, 4C C, 41 C, 16 C, FF C, 14' C, 06 C, 03 C, 30 C, 

FB C, C6 C, 03 C, 4F C, El C, 70 C, FE C, B0 C, 30 C, 08 C, 

B7 C, 5F C, 06 C, 02 C, 7A C, IF C, 57 C, 7B C, IF C, 5F C, 

10 C, F8 C, 79 C, 8F C, SC C, 47 C, AF C, 37 C, BF C, 10 C, 

FD C, 4F C, 7A C, F6 C, 3C C, 57 C, 1A C, 87 C, FA C, 

HERE 4 + , 3E C, 80 C, 47 C, FI C, B7 C, 78 C, 28 C, 11 C, 12 C, 

FA C, HERE C + , 79 C, 2F C, 4f C, 1A C, A1 C, 12 C, D9 C, C3 C, 

5DFE , B1 C, 18 C, F8 C, A1 C, 21 C, 0 , £8 C, 01 C, 2C C, 

E5 C, 18 C, EF C, 

Como esta rotina e longa, eu aconselho o leitor a digitd-la 
aos poucos, no mdximo 20 bytes de cada vez a medida que a 
confere, pois a possibilidade de erros e maior. 

• SET — Seta um ponto na tela cujas coordenadas X e Y sao 
respectivamente o 20S e o TOS: 

: SET 8000 ROT ROT GRAF % 

• RESET — Resseta um ponto e e similar & anterior quanto 
As coordenadas do ponto: 

: RESET 100 ROT ROT GRAF 5 

• POINT — Testa se um ponto estA setado ou nSo. Se esti- 
ver, devolve 1 na pilha; caso contrdrio, devolve 0: 

s POINT 0 ROT ROT GRAF ; 



SALVANDO EM DISCO 



Finalmente, vamos apresentar uma palavra que permite 
executar comandos de disco em FORTH. Esta palavra poderd 
ser usada com o sistema operacional NEWDOS/80 ou DIG- 
DOS100. Ela usa duas rotinas do sistema operacional. A 
primeira 6 a rotina que executa um comando do NEWDOS e a 
outra e a que- mostra uma mensagem de erro. 

Inicialmente, vamos implementar uma rotina em linguagem 
de mdquina que apanha o endere^o do comando na pilha e o 
executa, imprimindo eventuais mensagens de erro que possam 
ocorrer durante a execu£ffo do comando: 






pj 



p 

ri 

! 

P 

e; 

1 

2 

c 

5 

4 

fi 

si 

ri 

4 

P 

ri 

d 

d 

4 

P. 

c 

i 

P 

d 

fi 









■*» 
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CD 19 44 CALL 4419 * execute 

^ Z,05 ; salta se nao ouve erro 

™ 80 0R 80 ; seta bit wais signHi- 

; cativo de A 

CO 0? 44 CALL 440? ? iapriwe wens, de erro 

C3 FE 5D JP NEXT ; retorna 

ImpJementado em FORTH, 

CREATE CKD-005 El C, CD C, 4419 , 88 C, 05 C, F<S C, 80 C, 

CD C, 4+09 , NEXT 

Feito isso, vamos entS'o implementar uma palavra que pre- 
para o comando para ser usado por CMD-DOS: 

t CMD" 

22 TOKEN 

HERE DUP OUP 

C0 + 1+ OD SWAP C! 

1+ CR CRD-DOS 

? 

Note que esta palavra deve ser criada na base hexadecimal. 
Para utilizd-la, digite CMD“ comando -dos”. Por exemplo: pa- 
ra obter o diretdrio, digite CMD” DIR” (o espa§o colocado de- 
pois das aspas 6 obrigatdrio). 

N6s podemos usar este comando para salvar o compilador 
em disco. Para fazer isso, use a seguinte sequencia: 

1 — carregue o NEWDOS; 

2 - passe para o BASIC e carregue o FORTH da fita usando o 
comando SYSTEM; 

3 - inclua as palavras CMD-DOS e CMD”; 

4 — digite DECIMAL HERE, (isto imprimird o endere£o do 
final do compilador); 

5 - digite o comando CMD” DUMP FORTH/CMD, 24001 , 
nnnnn,24145”, onde nnnnn 6 o numero devolvido pelo item 
4 da sequencia. 

Isto salvard o compilador em disco. Use esta sequencia a 
partir do item 4 sempre que quiser salvar as modificafoes feitas 
no compilador. Os itens 4 e 5 deverSo ser usados sem base 
decimal. Feito isso, para carregar o FORTH em disco bastard 
digitar o seu nome e o sistema operational se encarregard do 
resto. Um cuidado apenas: nem todos os comandos de disco 
podem ser usados pelo FORTH, uma vez que alguns deles 
ocupam a drea de memdria onde o FORTH se encontxa. 

Para terminar, um ultimo lembrete: se voce pretende criar 
palavras em Assembler, aten^o para ndo destruir o conteudo 
dos registradores BC, IX e IY, pois eles tem funfOes especi- 
ficas dentro do compilador. 
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Microcomputadores com credito direto ou leasing 



Y TK-2000 


Cr$ 849.850, ^ 


I TK-85 


Cr$ 369.850, 1 


f CP-200 


Cr$ 369.000, | 


f DGT-1000 


Cr$ 1 .498.000, | 


CP-500 


Cr$ 1.990.000, 


APPLE II PLUS 


Cr$ 1.590.000, 


1 GRATIS! 


L UM CURSO DE BASIC 

L ENTREGA RAPIDA EM TODO BRASIL A 







Aplicativos: controle de estoque: conlabrlidade: folha de 
pagamento; contas a receber pagar; mala direta; cadastro 
de clientes e desenvolvimento de software para cada neces- 
sidade. 

Temos toda finha de perifericos e suprimentos para acom- 
panhar o crescimento de sua empresa. 



V1SJTE-N0S OU S0LICITE UM REPRESENTANTE 



MICRONEWS COM6RCIO E SERViqOS LTDA. 
Assembteia 10 Gr. 3317 - Ed. Centro Candido Mendes 
Tel.; (0211 252 9420 CEP 20011/RJ. 



SEJA NOSSO COLABORADOR 
E ENTRE PARA A HISTORIA. . . 
..de MICRO SISTEAAAS, & claro ! 



Como? £ simples: 

• Se vocd desenvolveu um 
programa interessante, escreva 
um texto datilografado expli- 
cando quai a sua utilizac^o e 
junte exemplos de apficacSb. 
Atenecio: 6 imprescindfvel que 
a listagem seja datilografada. 
Se for possfvel mande tam- 
b4m, junto com a listagem 
datilografada, uma fita cassete 
ou disquete com o programa. 

• Se for artigo, use tamb6n 
a m^quina de escrever e, caso 
haja necessidade de desenhose 
ilustrapdes, detalhe-os o m3- 
ximo possfvel. 



• Releia atentamente sua co- 
laboracS'o para micros ou cal- 
culadora, veja se n£o falta ne- 
nhuma informacSb (qual equi- 
pamento, em que configurated 
etc.) e remeta-a, em duas vias, 
para a equipe de MICRO SIS- 
TEMAS analisar. 

• Se aprovado, seu artigo ou 
programa ser A publicado em 
data a ser confirmada na gpo- 
ca. Todo material veiculado £ 
remunerado. Caso nSo seja 
aprovado, voc£ receberO seu 
material de volta. 

o Nao se esquepa de mandar 
um breve currfculo, seu nome, 
telefone e enderepo completo. 
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Ivan Cpmito da Crux domina vdrias iinguagens de programacSo, dentre 
elas o BASIC, Pascal , FORTRAN, ALGOL, COBOL , PL/1 e Assembler 
ten do experi§ncia de programagSo em computadores grandes. minis e 
m/cros (CP-500, DGT-IOO etc.). Atualmenta fax curso de Ffsica na 
UFRJ e traba/ha no Instituto de Qufmica da mesma univarsidade onde 
desenvoive um sistema contdbi! -e vdrios outros programas administra • 
tivos. 



Envie para REDACAO/MIC RO SiSTEMAS, Rio ou Sao 
Paula: Av. Presidents Wilson, 165/grupo 1210, Centro, CEP 
20030, Rio de Janeiro, RJ; Rua Oliveira Dias, 153, Jarditn 
“aulista, CEP 01433, Sao Paulo, SP. 
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E sco I ha a figura, de as med/das e espere... Com este programs, seu micro 
TRS-80 1 ou Hi ca/cu/ara a £rea para voce 



Em geometria, 
a area e do micro 




Heber Jorge da Si/va 



C dlculos de areas 6 um programa 
que roda em qualquer micro 
compativel com o TRS-80 mode- 
los i e III com 16 Kb de RAM e 
destina-se a calcular a drea de 20 figuras 



geomdtricas diferentes, das mais simples 
ds mais complexas. 

Logo em seguida a apresenta 5 ao do 
programa, o usuario recebera na tela um 
menu com as op^oes correspondentes as 



** MENU »* 
CAL.CUL.0S DE AREAS 



Quadrado 
Ret angul o 
Paral elogramo 
Triangulo Retangulo 
Triangulo Acutangulo 
Triangulo Obtusangulo 
Tr apez i o 
Trapeze i de 

Triangulo Eguilatero 
Pent agono 



Hexagon a 
Hept agono 
Oct ongono 
C i r c u 1 o 

Coro a Circular 
Set or Circular 
Seguiroento Circular 
Set or Coroa Circular 
El ipse 
Parabol a 



S E- L E C I 0 N E ? M 



20 figuras a serem calculadas (figura 1). 
Escolhendo uma, o computador plotard 
no video a figura requisitada, solicitan- 
do ao usudrio entrar com as medidas ne- 
cessdrias aos cdlculos. Ao informa-las, 
deve-se ter o cuidado de usar sempre a 
mesma unidade de medida, pois o pro- 
grama n£o faz conversdes. 

Observafoes: as impressoras costu- 
mam imprimir de forma diferente o ca- 
rdter de exponencia^ao. Os maisutiliza- 
dos sao: 6, A,Q e t . Em nossa listagem 
esta opera 9 ao equivale ao cardterQ Por- 
tanto, durante a digita$ao, substitua-o 
adequadamente. 



F ormado em A dminist'ra^ao de Empresas pel a 
UDF, Heber Jorge da Silva trabalha atua/men - 
te na Te/ebrasiiia, onde exerce atividades Hga- 
das d programapao de microcomputadores. 
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MICRO 





Cdlculos de Areas 



5 r 

10 '*** CALCULO DE AREAS *## 

15 '*** POR MERER JORGE DA SILVA **# 

16 '*** BRASILIA - DF 03/83 *«* 

20 *' )t **** , ** , *** , *** , )(W*'Mif-«-*»'K-*«'W***»X 

25 REM ***** MENU PRINCIPAL 

30 CLSiPRINTa454 r CHRS<23)-««* CALXIJL OS DE A 

REAS * * " s FOR D“ 1 TO 1 500 s NEXT 

40 CLS s PR I NTT AB ( 27 ) "** MENU **" s PR INTTAB < 14 > " 
** T CALCULOS DE AREAS **" (PRINT: PR 

50 PR INTTAB ( 10 ) "1 - Quadrado i 

1 - Hexagon o" : PR INTTAB < ID) "2 - Retangulo 

12 - Heptagorio": PR INTTAB ( 10 >"3 - Pa 
vn 1 ^° 9ram ° 13 - Octogono" 

60 PRINTTAB < 10)"4 - Triangulo Retangulo } 

4 - C.rcu1o''s P RINTTAB<iO>''5 - Triangulo Acuta 
ngulo 1 ,j - Coroa C i rcul ar": PR INTTAB < 10) "A 
~ Trian 3 ,J l° Obtusangulo 16 ■■■■ Setor Circular 

70 PR INTTAB ( 10) "7 - Trapezlo i 

7 ~ Segmento Circular-" 

00 PR INTTAB ( 10 ) "8 •••• Trapezoid® ‘ j 

0 Setor Coroa C i r c u 1 ar " : P R 1 N T T A B ( 1 0 ) "9 - Jr 
langulo Eguilatero 19 - El i pse"5PRINTTA8 (9 

> 10 ~ Pentagono 2 q _ p af . ab nla" 

90 PRINT: INPUT" % F I f 

C ! 0 N E " ; A# I FA< iOR A >20THEN90 
100 GO SUB 166)0 : 0NAG0T01 10 , 290 , 450 520 610 630 

650,670 , 700 , 720 , 730 , 740 , 750 , 760, 7/5 BIO 830 8 
60,890,920 ^//u,uiu,Bdu,B 

110 G05UB950 : GOSUB 960 
120 0NQG0T0130, 190,240 

"S60SUB95n INT3A4 ' //CALCUL0 DA ARt ' A D ° QUADRAD <> 
140 FOR X = i T*043 : FOR Y=1 1 T029 : SET ( X Y ) : NFXTY X 
J50 PRINT37CI4,"":INPUT"i - atravi* da “i^* na 

La 0 Lc,OT017d"Lo° * a ^ 0,/ >^ E 1FA< iORA >2THEN150 

170 G0SU8151G : GOSUB 1400 : V= „ 5* < DC2 > : GOTO! 600 
180 GOSUB 1 510 : GOSUB 990 : V=>L.C? : GO TO. 1 600 

Do°!GoIua“o ,aA4 '" C, ' LCULO 003 LAD0S 00 auADRfl 

200 PRINTU704 , "" ! INPUT"1 - Ptravps da area 

sto'oSlGOM^S^HO 390 "’ 1 ''' 1 ''"' 1 ” 0 " 02 ™^ 200 

RflOo":Rosun? 5 o A4 ' CA, ' CULO “ oia^hal bS°Suao 

250 PRINT3704, INPUT"! - Atraves da area 

J~ ~ Atraves do 1 ado"-D: IFD< 10RD>2THEN250 
260 0NDG0T0270 , 2S0 

270 GOSUB 1510 : GOSUB 1390 : V=SGR < A > *1 . 41 4 5G0TO16 

?9n r a?md JrtiS * S° SUB 990 : V== 1-414*1.: GOTO 1600 
290 GOSUB 1000: GOSUB 960 

300 0NQG0T031O, 400 , 430 

LO» ! OoluBi5o; ai28 '" CftLCUL ° DA AI,M °° RETANCU 



320 FOR X=1 TO 59 sFQRY-i/T 029 : SET <X,Y):NEXTY X 

330 PRINT3704, INPUT "ATR AVES DE: 1 - d j 

al + lado naior 2 - d i agonal + 1 ado men or 

a . rtrs. , < „ v 3 “ maior + lado mennr" 

,“A! IFA< 1 OR A >3THEN330 

340 ONAG0T035O ,370,390 

350 GOSUB i 5 1 0 : GOSUB 1 520 : GOSUB 1 400 : GOSUB 1 4 50 s I 

T L2= >DTHENG08UB 970 : GOT 0350 

360 V«L2*S0R < <DC2)-<L2C2> > SGOTO1600 

370 GOSLJB 1 510 : GOSUB 1520 s GOSUB 1400: GOSUB 1440:1 

FL.t= >DTHENGOStJB970 : GOT 0370 

360 V-L 1 *SQR ( <DC2)-<LiC2) ) :G0T01600 

390 GOSUB i 51 Os GOSUB i 520 : GOSUB 1 4 1 0 s GOSUBi 420s V 

~M*N: GOTO 1600 

400 CLS : PR I NTS) 128 , "CALCULO ' DOS LADOS DO RETAN 
GULO": GOSIJB 1000 

410 PR INT0704 , : GOSUB 1400 s INPUT"F.'nt re com uni 

dos 1 ados" ; 0 : IP"D< = s 0THE.NGOSUB970 : G0T0410 
420 V-SQR <(DC2)~<0C2)> s GOTO 1600 
430 CLS : PR INT<i)l 28 , "CALCULO DA DIAGONAL DO RET 
ANGULO" s GOSUB 1000 

440 PR INT3704 , "" : GOSUB 1410: GOSUB 1 420 : V=SQR < < M 
C2)+<NC2) ) : GOTO 1600 
450 GOSUB 1 0 i 0 : GOSUB 1 020 
460 0NQG0T0470 , 490 

470 CLS: PR. INTO 128, "CALCULO DA AREA DO P ARAL El 

SnS ?? 1 ( ? 0SUB 1 0i0 '■ 1 s B =60 : Y= 1 7 : F0RD=1 TO! 3 : GO 

SUB i. 670 : A“A+ 1 : B SS B + 1 s Y==Y+1 : NEXT 

480 F J R IN 13704 , "" : INPIJT"Ent r e com os valorem d 
os 1 ados" p M , N : V®M«N : GOTO! 600 
490 CLSSPRINTS128, "CALCULO DOS LADOS DO PARA1 
E L 0 GR AMO " s (3 0 SUB i 0 i 0 

500 PR INT51704,"": GOSUB 1390: GOSIJB 141 0 : 1FA< “MTH 
ENGOSUB970 : G0T0500 
510 V-A/M : GOTO! 600 

520 GOSUB 1030: PR INTG704 , "0 GUE QUER CALCULAR 
:>"sPRINT:PRINT"l - Area 2 - Cateto 3 

-■ H ipotenusa":PR!NT: INPUT" ESCOi HA 

"»Q!IFQ<10RQ>3THEN520 
530 ONGGQT 054Q , 560,590 

540 CLS : PR INTOO, "CALCULO DA AREA DO TRIANGULO 
RET ANGULO" : GOSIJB 1030 : Y 1=5 : F0RX=i5T04Q : FOR Y==Y 
1 T 030 : SET (X, Y) s NEXT : Y1«Y1 + 1 : NEXT 
550 PR I NT 3704 , : INPUT"Ent re com os dois cate 
t a s " - M , N s V= ( M*N ) /S : GOTO 1 600 

560 CLSsPRINTaO, "CALCULO DE CATETOS DO TR I ANG 
U 10 R ET ANGULO" s GOSUB 1 030 

S 7 2.?SinI^°?'"'' !INPUT " Entref COB ’ a hipotenuaa 
jn - INPUT Entre com um dos catetos"“0:IFH<=0T 
HENGOSUB 970 : GO TO 570 
580 V=SQR ( <HC2)-<0C2) ) :G0TO1600 
590 CLS SPRINTSO, "CALCULO DA HIPOTENtJSA DO TRI- 
ANGULO RETANGtJLO": GOSUB 1030 

600 PRINT9704,""=INPUT"Entre com os dois cate 
tos jM,N:V=SOR( ( MC2 ) + < NC2 ) ) 8G0T01600 

r\ 1 r? A E?Mr i L® i2S '" CALCUL0 DA AREA D0 TRIANGULO A 
CUTANGULO": GOSUB 1040 

620 GOSUB 980 : V-B *H/2 : GOTO 1 600 

f xP,oa? INTS)128 ' "CALCULO DA AREA DO TRIANGULO 0 
BTUSANGUL.O": GOSUB 1050 



SUPRIMENTO E COISA SERIA 

• Matenha o seu computador faem alimentado adquirindo produtos de quaiidatfe consagrada 



Discos Magn6licos 5 Mb. 16 Mb, 80 Mb etc 

DISKETTES: 5 1/4 e 8” • marca VERBATIM 
ETIQUETAS PiMACO - PIMATAB 



_W PRESIDENTE VARGAS N r <162 GR 207 TEL ■ 10211 25^206 2636876 



Ota MagnNica : 600, 1200 e 2400 P^s 

Fita CARBDFITAS p/lmpressoras: Globus M 200 — 8 300/600 

Fit# p / Impressoras: Elebra, Elgin, Epson, Digllab, Diablo etc 

Cartuctio Cobra 400 

Pastas c Formulirios Continues 
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EM GEOMETRIA, A AREA £ DO MICRO 




6AQ GOSUB 980 :V=B*H/2!G0T01 600 

650 PRINTSH.28, "CALCULO DA AREA DO TRAP EZIO" : G 
OSUB 1060 

660 PRINT3704 , "" : GOSUB 1630 : GOSUB 1450 : GOBI JB 14 4 
0:U=H«U..S+L 1 )/2:GOT01600 

670 PRlNT8128 r "CALCUL<> DA AREA DO TRAPE70IDE" 
3 GOSUB 1070 

680 PR INT37Q4 , ; s JNPUT"Ent r e com a altura me 
nor (h)"«Hi : INPUT"Ent re com a altura maior <H 
> " s HP s TNPUT"Ent re rnw » ha*e < A ) " s l„ : INPUT"Fnt 
re com a base ( B >" 5 8 s INPUT"Ent r e com a base < 
C ) " - C / 

690 U=< ( H 1+H2 ) #L+B»Hi+C»H2 > /2 : GOSUB 1510 : GOSUB 
1520s GOSUB 1540 2 P R T.NT3640, STR ING$ ( 30 31 > s GOSUB 
1560 2 GOSUB 1570 260T040 

700 P R INT364 , "CALCULO DA ARE: A DO TR I ANGULO EQ 

UIL.ATER0": GOSUB 1090 

710 GOSUB 990 s V= . 433* < LC2 > • GOTO 1600 

720 P R T.NT364 , "CALCULO DA AREA DO PENTAG0N0":G 

OSUB 1 1 00 : GOSUB 990 : 0=1 . 720* < I... C 2 . ) 5 GO TO 1 600 

730 PR INT864 , "CALCULO DA AREA DO HEXAGONO":GO 

SUB 1110: GOSUB 990 : U=2 - 598# ( L II 2 > s GOTO 1600 

740 PR INT80, "CALCULO DA AREA DO HEPTAGONO" : GO 

SUB 1 1 20 : PR INT3704 , "" s GOSUB 990 : 0=3 „ 634# < LC2 ) s G 

OT 01600 

750 PRINT30, "CALCULO DA AREA DO OCTOGONO":GOS 
U8 1 i 30 s GOSUB 990 : 0=4 - 828# < LE2 ) s G0T01600 
760 PRINTOO, "CALCULO DA AREA DO CIRCULO" sGOSU 
B 1 150 :F0RX=32TO57STEP2 s RESET ( X , 17 ) s NEXT : POKEP 
•♦ 350 , 82 s PR INTS704 , "" 5 GOSUB 1 650 S 0=3 . 14159# < R C2 
>: GOTO! 600 

770 PR INT80, "CALCULO DA AREA DA COROA CIRCULA 
R" s GOSUB 1 ISO 5 GOSUB 1 180 8 POKEP +403 , 82 s POKEP + 397 
,114 

780 PR INT3704 , ""2 6081181460:808081470 

790 IFR1 >=R2THENGOSIJB970!GOT0780 

800 0=3 , 14159# ( (R2C2> — <RiC2) ) :G0T01600 

810 PRINT3220, "CALCULO DA AREA DO SETOR CIRCU 

LAR" : GOSUB 1210: POKEP +212, 114 : RESET< 30, 13) s RES 

ET(30,21> :X=29 2E0RY=13TO16 s RESET < X Y ) :X=X-i:N 

EXT : X=29 : FOR Y=2iT018STEP--l 2 RESET ( X , Y) s X=X-i s N 

EXT 

820 RESET (26, 17) : PR INT3333 , "a 1 f a" j :G0SUB14802 

GOSUB 1 650 : 0= „ 008727*Z* ( R C2 ) 2 G0T01 600 

830 PRINT3218 , "CALCULO DA AREA DO SEGMENTO Cl 

R C UL AR GOSUB 1250: POKEP +258, 65 2 POKEP +322, 76 : P 
OKEP +386, 70: POKEP +450, 65: POKEP +342, 67 :F0RX=26 
T045STEP4 : SET ( X , 6 ) 2 SET ( X , 28 > : NEXT : F0RX=9T0238 
TEP 2 2 RESET ( X , 1 7 ) SNEXT s POKEP + 328 , 104 
840 FOR Y=6T028STEP2 2 SET < 42 , Y ) : NEXT s SET ( 7 40): 
SET ( 7 , 25 > : SET < 10 , 7 > : SET (10,28): SET (14,4): SET < 
14,31) : RESET <25, 8) 5 RESET (27,10) s RESET (29 ' 12): 
RESET (31, 14 > : RESET (33,16) : P0KEP + 208 , 1 i 4 
850 GOSUB 1 480 : GOSUB 1650: I NPUT"Ent re com o val 
or do 1 ado (C ) " - C s GOSUB 1430 : 0= . 5* (R« < . 01745#R 
#Z)--C#(R-H> ) s GO TO. 16 00 

860 PR INT318, "CALCULO DA AREA DO SETOR DE COR 
OA CXRCULAR":P0KEP+275, 1 44:P0KEP+469 8?:G05UB 
1230 : PR 1NTS333 , "al f a"; 

870 GOSUB 1480: GOSUB 1 460 : GOSUB 1470:1 FRi >=R2THE 
NG0SUB970 : 60T0870 

880 V=Z*3 . 14159/360# ( < R2C2 )~<R1E2) ) :GOT01600 
890 PR.INT34, "CALCULO DA AREA DA El.IPSF":GOSUB 
1340 

900 GOSUB 1490 : GOSUB 1500 : IFX < =YTHENGOSUB 970 : GO 
T 0900 

910 0=3 . i4159#X*Y s GOTO 1600 

920 PRINT30, "CALCULO DA AREA DA PAR ABOLA" sGOS 
UB 1360: GOSUB 1370 

930 GOSUB 1490 2 GOSUB 1500 n IFX < =YTHENGOSUB 970 : GO 
T 0930 

940 V=X#Y #2/3 : GOTO 1600 

945 RE:M »***« DESENHA OUADRADO 

950 F0RX=0T044 5SET(X, 10) 2 SET (X, 30) 2 NEXT: FOR Y = 

1 1 T030 : SE T ( 0 , Y ) : SET ( 44 , Y ) :NEXT 2 POKEP +138 76sp 
0KEP + 408 . 76 : X=44 :J~ OR Y= 10T029 = SET < X . Y ) : X = X--2 , 3 



s NEXT 5 POKEP +394 , 68 s RETURN 

960 PR INT3704 , "0 QUE QUER CAL.CULAR ?":PR1NT:P 
R I NT" 1 - Area 2 Lado 3 - D i agona 1 " :PR 

I NT s INPUT" ESCOLHA " ; Q:IFQ< 10RQ>3TH 

EN960EI. SERETURN 

970 GOSUB 1510 : PR 1NT3704 , "IMP055IUEL ! ! ! FAVO 
R REINFORMAR FOR D=. I T01i?QO sNEXT 2 RETURN 

980 PR I NT 3704 , "" : INPUT"Ent r e com o valor da b 
ase < B ) " j B : I NP UT"En tre com o valor da altura 
<h)"-H: RETURN 

990 PRINT 3704, INPUT"Entre com a valor do 1 
ado" * L s RETURN » 

995 REH »««#» DESENHA RETANGULO 

1000 F0RX=0TO60:SET (X, 16) :SET(X,30) : NEXT : FOR Y 

= 1 6T030 : SET( 0 , Y ) sSET ( 60 , Y ) : NEXT : P0KEP+270 , 76 : 

POKEP + 48.1 , 108 s POKEP+463 , 68 : X=0 :FOR Y=1 7T029 : SE 

T(X,Y> BX-X+4. 72 NEXT: RETURN 

1005 REM #»*** DESENHA P AR AL.ELOGR AMO 

.1. 0 1 0 X =0 : FOR Y= 1 6T030 : SE T < X , Y ) : SET ( X+ 60 , Y ) : X= X 

+1 :NEXT:FORX=0TO60:SET(X, 16) :SET(X+14 30) :NEX 

T s POKEP +271, 76 sROKEP+484, 76: RETURN 

1020 PR INT3704 , "0 QUE SUER CAL.CULAR ?":PRINTs 

PR INT"! -- Area 2 - Lados" s INPUT" 

ESCOLHA,. . » Q 5 IE(}< 1 0RQ>2THEN1020ELSER ETU 
RN 

1025 REM ##»«« DESENHA TR I ANGULO RETANGULO 
1 030 X=15 2F0R Y=5T030 : SET ( X , Y ) : X=X+i sNEXT s FOR Y 
= 5T030 s SET < 15 , Y ) : NEXT : FOR X= 1ST 040 s SET ( X , 30 ) :N 
EXT : POKEP + 325 , 67 s POKEP +335 ,72 : POKEP + 7 18 , 67 s RE 
TURN 

1035 REM ***** DESENHA TR I ANGULO ACUTANGULO 
!Q/}0 A=20 :B=22 5 FOR Y=12T029 : GOSUB 1 670 : A=A-1 : B= 

B +3 : NEXT: POKEP +457 , 104 : POKEP +658 , 66 s FOR Y=i iTO 

29STEP2 : SET ( 21 , Y ) : RESET (21 ,Y ) 2 NEXT: RETURN 

1045 REM ***** DESENHA TRIANGULO OBTUSANGULO 

1050 A=58 : B=58 :F0RY=12T029: GOSUB 1670 : A=A-3 : B= 

B~1 : NEXT: POKEP +41 4, 104: POKEP +654, 66: FOR Y=12T0 

29STEP2 : SET (58, Y) =NEXT :F0RX=41T061STEP4 : SET<X 

,29) : NEXT: RETURN 

1055 REM ***** DESENHA TRAPEZIO 

1060 A= 15 : B=5i :FORY=20T029:GOSUB.167fJ:A=A-l :B = 

B +2 : NEXT 5 FOR Y=19T030STEP2 : RESET ( 50 , Y ) SNEXT 2 PO 

K EP +336 , 67 2 POKEP + 654 , 66 : POKEP + 538 , 104: RETURN 

.1065 REM ##•*** DESENHA TRAPEZOIDE 

1070 A = 50 : 8=60 : FOR Y--19T021 : GOSUB 1670 :A = A~10:B 

=B+1 : NEXT: A=20:B=63: FOR Y=22T029: GOSUB 1670: A=A 

-1 : B=I3 + 1 sNEXT: P0KEP + 647,66:P0KEP+523, 104: POKE 

P +660, 65 : POKEP +541 ,72 5 POKEP +673, 67 

1080 FOR Y=21 T030STEP2 s RESET ( 20 , Y ) :NEXT:F0RY=1 

9T030STEP2 : RESET < 61 , Y ) s NEXT s SET < 20 , 31 ) s SET < 61 

,31): RETURN 

1085 REM ###** DESENHA TRIANGULO EQUILATERO 
1090 A =36 2 B=36 : FOR Y=8T03G 2 GOSUB .1670sA=A~l „ 3 s B 
=B+1 . 3: NEXT : SET ( 37 , 9 ) : POKEP+721 , 76 : RETURN 
1095 REM #««■#«• DESENHA PENTAGONO 
1 100 A=36 2 B = 36 : FOR Y=8T01 6 2 GOSUB 1670: A = A-2 . 6 : B 
“B+2 .6 : NEXT : A=1 6 : B=55 :F0R Y=1 7T027 s GOSUB 1 670 s A 
== A+ „ 62 : B=B ~ . 62 : NEXT 2 POKEP +658 76: SET (54 18) sR 
ETURN 

1105 REM »«#*» DESENHA HEXAGONO 

1110 A=20 s 0=49 :FORY=8TOi 8: GOSUB 1670 :A=A-1. 15: 

B=B +1 . 15:NEXTsRESET(49 ,8) : A=2O:B = 49:FORY=29T0 

19STEP--1 : GOSUB 1670: A=A-1 „ 15:E)=B + i « 15s NEXT 2 RES 

ET ( 49,29) sPOKEP+656, 76: RETURN 

1115 REM *#*■»« DESENHA HEPTAGONO 

i 1 20 A =34 : B=34 s FOR Y=5T0 1 GQSUEJ. A70 : A=A-4 : B=B 

+ 4 : NEXT = A= 1 0 s B =58 : FOR Y=i 2T02..1 2 GOSUB 1 670 : A=A- „ 

5 : B=B + . 5 2 NEXT s A=5 : B=63 : FOR Y=22T032 : GOSUB 1670 s 
A--A+.1 » 5 2 B=B-1 . 5 s NEXT : POKEP +720 , 76 : RETURN 
1125 REM ##### DESENHA OCTOGONO 
1130 A=34 : B=34 s FORY=5T010 : GOSUB 1670:A=A-4„2sB 
- : B + 4.2: NEXT 2 SET (33,5): A= 12 : B=55 :FORY=11T018:G 

OSUB 1670: A=A-1 :B=B+1 SNEXT :A=34 :B=34: FOR Y=32T0 

27STEP- 1 : GOSUB 1670 : A=A~4 . 2 : B = B + 4 . 2 2 NEXT 
1140 BE T ( 33 , 32 ) S A=12 : B--55 : FOR Y=26T01 9STEP-1 sG 
OSUB 1670: A=A~1 :B=B+i sNEXT : P 0KEP+650 , 76 : RETURN 
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i t 45 REM ***** DE5ENHA CIRCUL0 

4 ^WFX? - f 8 I o° R Y “ 5T<)7 2 GOSm A70 = A-A - 4 : B~B + 

' „ EXT I A * 1 4 / B= " 48 ! F °R Y=8T01 1 3 GO SIJB i 67 0 : A-A-2 s B 
B *f; s F OR X=7T055 5 SET ( X , 12) s NEXT : F OR Y-13T0 

X 4 y ) S^?v NEXT ! F0R Y=i 5T0i 9 ! F0 R x =ST°57 : SET ( 
A f 1 > • NtA 1 - NL XT 

1 160 A=24 s B«38 s FOR Y»29T027STEP-i £ 60SUB 1 670 : A= 

->UB 16? 0 . A— A~2 « B — B +2 s NEXT SF0RX-7T055 s SET ( X ">'>) 

: f 0RX-6T 0o6 s SEl < X , Y ) : NEXT: RETURN 

117^ REM ***** DESENHA COROA CIRCULAR 

i 180 A=26 sB=3S s FOR Y = 1 0T01 2 s GOSUB 1680 : A-A-3 : R = 

V^r-Anv 1 sF0RX::? 1 8t 043s RESET <X, 13) : NEXT 5 A = 1 7 » R 

X-15T046«R^ ‘NEXT: FOR 

a-1,5 I 046-RESET (X, 17) SNEXT 

1 190 A«26 2 8=35 s FOR Y« 24T022STEP-i : GOSUB i 680 : A= 
A~3:B:= B +3:NEX T ! F 0 R X-18 T 043:RESE T <X,2t ) : NEXT: A 
nlil NEXT : F0R Y=S0T0 1 0STEP - 1 = GOSUB 1 680 : A«A- 1 e B » 

0^7° T rp5-Br?J??5 S rv P2BSET<X ' i7> ! NEXTiforx= 47T 
0j/orEP2.HESET ( X , 1 / ) s NEXT s FOR Y-24T 0 i /STEP -? :<•> 
l::.1 (30, Y) SNEXT: RETURN 

1205 rem ***** DESENHA SETOR CIRCULAR 

t-T *; I >r :? " ™ <X ' 6 } faET ( X r «*B > s NEXT s F0RX=42T046 s S 
E.T(X,6) s&tr(X.28) s NEXT : F0RX=46T05i : SET ( X 7) :N 
LX 1 s X-i 9 s FOR Y-0T017 s SET < X , Y > 5 X-X+ i : NEXT s X=i 9 " 

I OR Y-34T017STEP - 1 : SET ( X , Y ) s X=X+i : NEXT 
1220 FOR Y=6T017STEP2 : SET ( 37 Y ) : NFXT 

f f?2rvT 2 A " ?” 25S F0R Y= -7T01 1 s GOSUB 1670 : A“A-2 SB==B 
•1 .'NLX7 :A=2i s B«25: FOR Y=27T023STEP-1 sGOSUR 1670 
” a ~A-- 2 -B--B + 1 : NEXT; FOR X=j,2T03i :SFT(X 1?) :«ET(X 

I : 30 ( x r 1 4 > s SE T ( X , 20 ) : NEXT 

A;; 1 G = B-34: FOR Y« : 15T017: GOSUB 1670 :B=B+lsNE 
^NEXT : RETURn' 1 1670:R = B + 

RFM ***** DESENHA SEGMENTO CIRCULAR 
- o J 2o ' S F 0R Y-7T01 i : GOSUB 1270 ■ NEXT : A=2i 

T(x" ni - rlr r , t > 2 r ( X , 22 > s NEX T 2 F0R X= * 1 T022 s SE 
F <X r 1J) - SET < X , 14 ) s SET ( X , 20 ) 5SFT<X 21 ) : NFXT * Fn 

RY-lSTO19sF0RX-iOT022.8ET<X r Y>«NFXT.NF2? 

1260 X=l B : FOR Y-1T017 s SET ( X , Y ) 5 X=X+ 1 s NEXT s X=18 

■ ! ® ET<X » Y > SX=*X + 1 SNEXT s RETURN 

1 ^ 7 1.) GOSUB 16/0 s A=A--2 : RETURN 

1275 REM ***** DESENHA SETOR DE COROA CIRCULA 

- £??I°i 2 1 SET < X . s > « SET < X r 29 ) . NEXT : FOR X 
.... t Z 3 -°"; 7 * ° L X » 2B 3 s SET < X r 6 > s NEXT s FOR X=42 TO 46 s <■; 

-Tno4® • ? I ! »? R L =4AT05 1 s BEJ( x ' 27): NEX Y : r°*x 

;^ro«::"o45-S“l;™SFxf T032 ‘ SET <X ' 9>1 Nt;: 

! ™ v X ^ 1 ' 9 ! F0R Y»OTO: 1 7 s SET < X , Y ) s X-X + i : NEXT s X* J 9 
-- 1 !SET ( X ' Y > 2 X-X+i : NEXT: A Jl R 
7 r -;;' ■ r 0R Y=:/ r o 1 1 S GOSUB 1 670 :: A-A-2 : B-R + i s NEXT s a4* 

1 ! S-25 : 1- OR Y=27T023STEP -i 

1300 60SUB1670.A«A-2o"B=B + l*NEXT!FORX-i2T03i-S 

.;l ,?■ J ; x '-"l ■ ) f Jf 22 } : NEXT “ F °R X:=: 1 1 T 032 : SET < X „ 21 ) 

1 1 0 P OR X-~ 1 1 f 0 33 s SE T ( X , 14) s S E T t X 20) : NF Y t ■ a — < 

o.a.34.roRy.i» TWBS T EP : 1 , B ®S5 B i^5?B^lA?CT 

' nZ 1 , ' J “■ JA ~ 1 0R Yr -'- 1 5i <> 17 sGOSUB 1 670 : B *B + i : NFXT e A 
^ 2 .7 2 “ FOR Y : »i 1 TO 13 : GOSUB .1. 680 s A-A-2 : B“B + 1 : IslE 

i f 5? r 8 OR Y«2a-r02 i B T EP - i s GOSUB 1 A80 s A« 

S u s;SiStU^?lB-B"^Ex? ,,F0RY " 20T0ia8TEP "* 1100 

1 330 A==22 s B == 32 s F0RY-14T0 1 6 s GOSUB .1. 680 s A--A- iaB« 

0 r/ r j^pn I ^; aT0X sRESETIX, 17) SNEXT! FOR Y*9T 
7rT/ y ! 3<l ' Y )8NtXlf " X-- 3 6 s FOR Y i; = 1 7 T 0 28 S TEP P 

-v.>EI <X, Y) : X s:: X+l SNEXT s RETURN 

1335 REM ***** DESENHA EL IPSE 

“26T07 4 ' ? °y f * ( X ^> > 5 SET ( X , 28 ) a NEXT : FORX 

... >7064.,., El (X,/) s.bfc.7 <X,S7) sNEXTsF0RX=20T070:s 



F7 <X, 8 ) : SE T <X,26) :NEXT : FOR X = 16T074 s SET < X 9) sS 
'" NEXT"' 1 * ) S NEXT 5 F ° R Xi!5i 3T °77 : SET ( X „ 1 0 ) s SET ( X , 24 ) 

1 350 A - 1 1 : B -~79 : FOR Y- 1 U^l 2 s GOSUB 1 670 : A= A-2 : B- 
B+2 : NEXT : A= 1 1 : B =79 s FOR Y=23T022STEP- 1 : GOSUB 1 67 

0 : A=A-2 2 B-B+2: NEXT sA=3:B=82: FOR Y=13T016 :GOSUB 

.16/0 : A -A-l : B ~F{ f 1 :NEXT FFA^SsB-SSsFORY-aiTOlSSTE 

P-1 sGOSUB 1670: A=A~1 : B“B+1 : NEXT 

.1360 F 0RX=5T090STEP2 s SET < X , .17 ) s NFXT s FOR Y=7T02 

nIIS 2SRESET<45 ' Y> sNEXT!8ET< 4S,30) SF0RY-20T03 
0S7 EP2 s SET < 5 „ Y ) s NEXT s POKEP+652 , 88 : F0RX sa 47T091 
STEP2 : SET ( X , 6 ) s NEXT s POKEP+ 235 ,89 s RETURN 
1365 REM ***** DESENHA PARABOLA 
1370 SET (5,20) : FOR Y=17T030STEP2 s SET <45 Y):NEX 
r 2 { °RX=34T045 s SET < X , 6 ) : NEXT s FOR X=26T045 : SET < X 
,r. X ^ 2 J! EXTsF GRX--20T045 sSET<X, 8) sNEXT !F0RX=16T04 
■'0 “ A- A X 2 ■ NFXT XT * A=S 1 3 S Bss4S 2 FOR Y = 1 OTO i 2 s GOSUB 16 
1380 A==8 s B==45 s FOR Y==i 3T01 6 s GOSUB 1670 : A=A— J JNEX 

T s F OR X *5T 0 43 s SET ( X r i 7 ) s NEXT s R E TUR N 

1390 ].NPUT"Lntre com a area " ; As RETURN 
1400 INPUT"Entre com a diagonal (D) " ; D s RETUR 



1410 INPUT^'Entre com um dos lados "jMsRETURN 
1420 INPUT"Entre com o outro lado " j N : RETURN 
1430 INPUTTED t re com a altura <h) ^ | H : RETURN 
J 448 INPUT"Entre com o lado men or "-LlsRETURN 
14o0 INPUT "Enf re com o lado maior " ?L2 s RETURN 

R1 *RFTURN T " EntrC C ° m ° Val ° r d ° raio nenc,r "r 

R?^RETURN T " Entre C ° m ° Val ° r ,l0 rai ° maior "9 

1480 PR INTS704 , : INPUT"Entre com o valor do 
angulo a If a " ? Zs RETURN 

1490 PR INT8704, ""s INPLIT"Ent re com o valor de 
X j: X “ RETURN 

1. ^,00 INPUT "Ent re com o valor de Y "»Ys RETURN 

1510 PR INT8704, STR INGf < 40,32) s RETURN 

1520 PR IN 7 8768, STR INC'S ( 40 , 32 ) i RETURN 

1530 PR INT3832 ,STR ING$ ( 40,32) s RETURN 

1540 PR IN TOO 96 , STR ING® (40,32 ) 8 RETURN 

1550 PR INTS)960,STR ING4 < 44 ,32) « s RETURN 

1560 P OR P = 16064 TO 161 06 s POKER 1 76 s NEXT s F0RP = 1 6 

192T0 16234 s P OKEP ,131s NEXT 5F0RI--1T065P R INTS768 

, 0 resultado e ' "-SF 

OR D~.l T050 s NFX F s PR INT0784 . .USIN G^t MtH ### HMli HM 

tt . muttl" j V . : FORD-l T0400 s NEXT s NEXT s RETURN 

1570 PR INT3960 , "Tec 1 e << RETURN >> para nov 

o calculo 

1580 A<&«INKEY*s.tFA!K >CHR® < 13 > THEN1580ELSERETU 
K N 

ifnn ^L 1 I?2 !SET<X+D ' Y>l,NEX T sXas X“2«RETURN 
1600 UOoUBlvj 10: GOSUB 15, 20 sGOSUB 1530 SGOSUB 1550 8 
GOSUB i 560 s GOSUB 1570 : GOTO 40 

RETURN NPUT/#Entre COm ° Valor 11,0 lado <a> "? L5 

RETURN*' 113 ^ 1 ^ COW ° VB ^ ar do ^ado (b) ";B; 

1630 INPU T - Entr . com o valor do lado <c) "pC! 

H^RETURN 01 ' ,,Entre C ° m ° valor da altura <h) 

-GOrINPUT "PYitre com o valor do raio <r) ";Rs 

i ,™?rv?hf >PRlNTa960 ' W<INF0RME GALORES NA MESMA 
UNIDADE DE MED I DA > " » s P = 15360 s RETURN 
1670 FOR X==ATOB s SET < X , Y ) : NEXT 8 RETURN 
1680 FORX-ATOB sRfc'SET < X, Y) sNEXT: RETURN 
1690 PR INT8704 , "0 VALOR DA AREA DA BASE E'"-S 
« GOSUB 1 6 40 s R E 7 UR N ' 

1700 PR 1N7 3704, • GOSUB 1650 sGOSUB 1640s RETURN 



YsRETURN 
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Muita atenqio ao disparar os seus P r ° s N?^^!.%f nc i a i r 

enfrentando um inimigo espertoum ™croda farr,,l,a Smc/a - 
Portanto, comandante, fogo neies\ 




Batalha 
Naval 



Waldir Ferreira de Arruda 







O tradicional jogo Batalha Naval 
ganha novo cendrio: a tela dos 
micros da f am ilia Sinclair. As 
regras, os navios, seus forma - 
tos e quantidades sSo os mesmos (4 sub* 
marinos, 4 destroyers, 5 hidroavtfes, 2 
cruzadores e 1 courafado) e vocd sera o 
humano que jogard contra o micro. 

Logo depois de rodado, o prog^ama 
pede o nivel de jogo: 1 (fdcil), 2 (mddio) 
e 3 (dificil). Em seguida, desenha a tela 
com os dois campos de batalha, sendo 
que o campo do lado direito pertence ao 

0 programa entra em FAST para 
montar, randomicamente, os navios do 
micro. Ao final, ele monitora a entrada 
de dados para montar os navios do joga- 
dor (humano), Isto se faz com a digita- 
cSo de “linhas e colunas” e o programa 
pede a confirma^o para cada coordena* 
da digitada (ao to do, sdo 38 partes de 
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navio). Para cada navio a ser montado 
pelo humano, o micro mostra o formato 
o qual, no entanto, ndo i checado pelo 
programa. Portanto, podem ser cnados 
novos formatos. 

A BATALHA 



O humano inicia o jogo — depois de 
ter desenhado todos os seus navios - 
tendo direito a tres tiros. Ao tdmuno 
destes, o micro diz se foi acertada algu- 
ma parte de navio ou se foi apenas agua. 
Para cada parte acertada, hd uma inver- 
se de tela simulando uma explosdo e, 
para cada tiro na dgua, segue-se um bip. 
Aeora, se o tiro cair em alguma parte jd 
acertada, o micro emite tres bips e esta 
parte permanece in versa (nSo conta 

P ° Logo que o humano termina seus ti- 



ros o micro faz a seguinte pergunta: 
RECONHECIMENTO (S/N). Se o joga- 
dor responde N, o micro lan$a seus tor- 
pedos (se der dgua, o micro tambdm 
emite um bip e preenche esta coordena- 
da com um asterisco; se atrngir al^ima 
parte, esta heard piscando, tomando-se 
inversa). Caso o jogador iesponda S, 
passa pela tela a confirma^do de quantas 
partes se compOe cada navio . 

A esta altura, imcia-se tambdm uma 
contagem regressiva de pontos, pois a 
somatdria de todas as P a Q rtes r d t e 
mandante equivale a 38 partes. O co 
mandante que conseguir chegar atd ze- 
ro ganha a Batalha Naval 



detalhes tEcnicos 



a listagem em Assembler deve serdi- 
gitada com o auxflio do momtor publi- 
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16514 


= 


42 


1 6530 


= 


24 


16515 


= 


1 2 


1 6531 


= 


2 


16516 


= 


64 


16532 


= 


198 


16517 


= 


6 


1 6533 


= 


128 


16518 


= 


22 


1 6534 


= 


1 1 9 


16519 


= 


197 


16535 


= 


16 


16520 


= 


6 


16536 


= 


241 


16521 


= 


32 


1 6537 


= 


35 


1 6522 


= 


35 


1 6538 


= 


193 


1 6523 


= 


126 


1 6539 


= 


16 


16524 


= 


2 54 


1 6540 


= 


234 


1 6525 


= 


127 


1 6541 


= 


201 


16526 


= 


56 


1 6542 


- 


21 1 


16527 


= 


4 


1 6543 


= 


240 


1 6528 


= 


222 


1 6544 


= 


20 1 


1 6529 


= 


128 









cado em MICRO SISTEMAS numero 23 . 
Ela <5 composta de duas rotinas (<$ acon- 
selhdvel, portanto, reservar 31 bytes na 
primeira linha de REM): 

• de 16514 a 16541 — rotina de inver- 
se da tela; 

• de 16542 a 16544 — rotina de bip 
(esta rotina 6 para o caso do microcom- 
putador CP-200, no qual o programa foi 
desen vol vido ; nos demais equipamentos 
que nSo tem bip, esta rotina deve ser 
omitida, e as linhas que contiverem a 
in st ru 950 RAND USR 16542 n So devem 
ser digitadas). 

Como sabemos, uma das tdenicas uti- 
lizadas para jogar Batalha Naval e dar ti- 
ros em volta da parte atingida de um na- 
vio para tentar afimdd-lo todo. No entan- 
to, esta rotina nSo pode ser implantada 
neste programa, pois ela deman daria mais 
alguns Kbs de memdria, coisa de que 
nffo se dispunha. Para contomar a situa- 
9 S 0 e tornar a Batalha mais competiti- 
ve, optei pelos niveis de dificuldade 
mencionados no infcio do artigo. 

Observa$So final: para obter o car- 
ter grdfico situado nas linhas 5340, 
5520, 5690, 5750 e 5791, digite GRA- 
PHICS SHIFT A. Outra coisa: caso o 
humano queira desistir, basta digitar 
dois asteriscos ( * *) na sua vez de atirar. 



Watdir Ferreira de Arruda estudou na FASP 
(Facu/dade de Sistemas de $So Paulo). Atuaf- 
mente trabalha na empresa In cm men to In - 
formdtica S/A. t onde ocupa o cargo de Ana- 
lista de ProdupSo. Possui um CP-200, utHi- 
zando-o como hobby. 



Batalha Naval 



R) 



10 REM (31 CARACTERES QUAISQUE 



15 RAND 

16 REM 

20 DIM M? (15,15) 

30 DIM P? (15,15) 

36 GOSUB VAL '’8500" 

40 PRINT AT 7 . ? ■ " I _U_ I | _L_L I IHJII 

ttnarnzmim" 

5 0 PR INT AT 8,2;*' 

a:i II I I f I II mi - 

60 PRINT AT 9,2;" 

nrni"i i if - 1 hi h t 

70 PRINT AT 10.2; " fWfH P I I U TI 

— eldecgod" 



80 P RINT AT 13,6; ' TJT O ' I | ^ | J2 



EBIH I 



90 P RIM": AT 14,6; " BtTTTIJTTrni 

cdhgiii' 

100 PRINT AT 15.6:"(lTJT7TTriQ-yi 

nrr ri i " 

110 PRINT AT 16.6;"ffl' l "it 

nr pi \wm « 

120 FOR N=1 TO 16 

130 LET X=USR 16514 

131 FOR A=1 TO 8 

132 NEXT A 
140 NEXT N 
150 CLS 

160 PRIN T AT 7,5;''CI!EniEJ";AT 7, 

21 ; 

200 FOR N=1 TO 15 
210 LET 2-165+N 

220 PRINT AT 0,N;CHR| 2; AT 16, N 
;CHR| Z; 

230 NEXT N 

240 FOR N=17 TO 31 

250 LET Z=149+N 

260 PRINT AT 0 ,N ;CHR| Z;AT 16 N 
;CHR| 2; 

270 NEXT N 

280 FOR N=1 TO 15 

290 LET Z=165+N 

300 PRINT AT N,0;CHR| Z;AT N,16 
;CHR| Z; 

310 NEXT N 

32 0 PRINT AT 0,0; "d" ; AT 16.0 
”;AT 0,16; "d" ; AT 16,16;"d" 

330 FOR X=1 TO 15 
340 FOR N=1 TO 15 
350 PRINT AT X , N ; " , " ; 

360 NEXT N 
370 FOR N=17 TO 31 
380 PRINT AT X,N;“ " - 
390 NEXT N 
400 NEXT X 

405 PRINT AT 1 8 , 1 ; " AGUARDE . . MI 
CRO MONTANDO NAVIOS " 

406 FOR N=1 TO 50 

407 NEXT N 
410 FAST 

420 FOR H=1 TO 5 
430 LET L=INT (RND*13)+1 
440 LET C=INT (RND*13)+1 
450 LET T=INT (RND*2)+1 
460 IF T=1 THEN LET A=3 
470 IF T=1 THEN LET B=2 
480 IF T=2 THEN LET A=2 
490 IF T=2 THEN LET B=3 
500 IF C=13 AND L<=12 THEN LET 
A=3 

510 IF L=13 AND C<=12 THEN LET 
B=3 

520 IF L=13 THEN LET A=2 
530 IF C=13 THEN LET B=2 

540 IF L=13 AND C=13 THEN GOTO 
0430 

541 FOR 2=0 TO A 

542 FOR N=0 TO B 

543 IF Ml (L+Z, C+N) <> “ ’’ THEN GO 
TO 0430 

544 NEXT N 

545 NEXT 2 

546 FOR Z=0 TO A 

547 FOR N=0 TO B 

548 LET M| (L+Z , C+N) =” * " 

549 NEXT N 

550 NEXT Z 



560 IF L=13 OR C=13 THEN GOTO V 
AL •'820" 

570 IF T=1 THEN GOTO VAL "700" 
580 GOSUB VAL "1070" 

590 IF T=1 THEN GOTO VAL ”650" 

600 LET M$<L,C)="ET 

610 LET M$(L,C+2)="CT 

620 LET M| (L+l.C+l) ="BT 

630 NEXT H 

640 GOTO VAL "1100" 

650 LET M$ (L,C+1) ="B|" 

660 LET M$ <L+1,C) ="□" 

670 LET M$ (L+l.C+2) ="d" 

680 NEXT H 

690 GOTO VAL "1100" 

700 GOSUB VAL ”1070" 

710 IF T=1 THEN GOTO VAL "770" 
720 LET M|(L,C)="d” 

730 LET M| (L+l.C+l) ="1H" 

740 LET M$,(L+2,C) = "nr 

750 NEXT H 

760 GOTO VAL "llOO” 

770 LET M$ ( L , C+l ) = ”d" 

780 LET M$ (L+l,C)="Cr 
790 LET M$ ( L+2 , C+l) = "Q" 

800 NEXT H 

810 GOTO VAL "1100" 

820 IF C=13 THEN GOTO VAL "950” 
830 GOSUB VAL “1070" 

840 IF T=1 THEN GOTO VAL "900” 
850 LET M$ (L+l.C+2) ="□" 

860 LET M$ (L+2, C+l) ="d” 

870 LET M| (L+2, C+3) = "Gr 

880 NEXT H 

890 GOTO VAL "1100" 

900 LET M$ (L+l , C+l) ="d" 

910 LET M$(L+l,t;+3)="Br 
920 LET M$ (L+2,C+2) ="d M 
9 30. NEXT H 
940 GOTO VAL "1100" 

950 GOSUB VAL "1070" 

960 IF T=1 THEN GOTO VAL "1020" 
970 LET M$ (L+l, C+2) ="0" 

980 LET M$ (L+2, C+l )= "nr 
990 LET M$(L+3,C+2) ="d’ 

1000 NEXT H 

1010 GOTO VAL "1100" 

1020 LET M$ (L+l, C+l) ="0" 

1030 LET M$(L+2,C+2)="d" 

1040 LET M| (L+3,C+1) ="CT 

1050 NEXT H 

1060 GOTO VAL "1300" 

1070 LET T=INT (RND*2)+1 
1080 RETURN 

1100 LET L=INT (RND*14)+1 
1110 LET C=INT (RND*14)+1 
1120 LET T=INT <RND*2)+1 
1130 IF T=1 THEN LET A=1 
1140 IF T=1 THEN LET B=5 
1150 IF T=2 THEN LET A=5 
1160 IF T=2 THEN LET B=1 
1170 IF L=14 AND C>10 THEN GOTO 
VAL "1100" 

1180 IF C=14 AND L>10 THEN GOTO 
VAL “1100" 

1190 IF L>10 AND T=2 THEN GOTO V 
AL "1100“ 

1200 IF C>10 AND T=1 THEN GOTO V 
AL "1100" 

1210 FOR 2=0 TO A 

1220 FOR N=0 TO B 

1230 IF M| (L+Z, C+N) <>“ " THEN GO 

TO VAL "1100" 

1240 NEXT N 

1250 NEXT Z 

1260 FOR~Tr=0 TO A 

1270 FOR 11=0 TO B 

1280 LET M$ (L+Z ,C+N) =" * ” 

1290 NEXT N 
1300 NEXT Z 

1310 IF L=14 OR C=14 THEN GOTO V 
AL "1410" 

1320 IF T=1 THEN GOTO VAL "1370" 
1330 FOR N=0 TO 4 
1340 LET M$(L+N,C)='I3" 

1350 NEXT N 

1360 GOTO VAL ”1500" 

1370 FOR N=0 TO 4 



» 
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BATALHA NAVAL 



1380 LET M$ (L,C+N)="0" 

1390 NEXT N 

1400 GOTO VAL ”1500" 

1410 IF 014 THEN GOTO VAL ”1460 

1420 FOR N=0 TO 4 

1430 LET (L+l, C+N) ■'H" 

1440 NEXT N 

1450 GOTO VAL "1500" 

1460 FOR N=1 TO 5 

1470 LET M$ (L+N , C+l } ="0" 

1480 NEXT N 

1500 FOR R=1 TO 2 

1505 LET PI=PEEK 16591 

1510 LET L=INT <RND*14}+1 

1520 LET C-INT (RND*14)+1 

1530 LET T=INT (RND*2)+1 

1540 IF T=1 THEN LET A=1 

1550 IF T=1 THEN LET B=4 

1560 IF T=2 THEN LET A=4 

1570 IF T=2 THEN LET B=1 

1580 IF L=14 AND Oil THEN GOTO 

VAL "1510” 

1590 IF C=14 AND L>11 THEN GOTO 
VAL "1510” ;■ 

1600 IF L>11 AND T=2 THEN GOTO !v 
AL ”1510" 

1610 IF Oil AND T=1 THEN GOTO V 
AL "1510" 

1620 FOR Z=0 TO A 

1630 FOR N=0 TO B 

1640 IF M$ (L+Z,C+N) <>" " THEN GO 

TO VAL "1510" 

1650 NEXT N 

1660 NEXT Z 

1670 FOR Z=0 TO A 

1680 FOR N=0 TO B 

1690 LET M$ (L+Z, C+N) ="*" 

1700 NEXT N 
1710 NEXT Z 

1720 IF L=14 OR C=14 THEN GOTO V 
AL "1840" 

1730 IF T=1 THEN GOTO VAL "1790” 
1740 FOR N=0 TO 3 
1750 LET M$(L+N,C}="0" 

1760 NEXT N 
1770 NEXT R 
1780 GOTO VAL "1950" 

1790 FOR N=0 TO 3 
1800 LET M$ (L,C+N)="S" 

1810 NEXT N 
1820 NEXT R 
1830 GOTO VAL "1950" 

1840 IF C=14 THEN GOTO VAL "1900 

1850 FOR N=0 TO 3 
I860 LET M$ (L+l, C+N) ="H" 

1870 NEXT N 
1880 NEXT R 
1890 GOTO VAL "1950" 

1900 FOR N=1 TO 4 
1910 LET M$ ( L+N , C+l ) — "0" 

1920 NEXT N 

1930 NEXT R 

1950 FOR D=1 TO 3 

1960 LET L=INT <RND*14>+1 

1970 LET C=INT <RND*14)+1 

1960 LET T=INT (RND*2)+1 

1990 IF T=1 THEN LET A=1 

2000 IF T=1 THEN LET B=2 

2010 IF T=2 THEN LET A=2 

2020 IF T=2 THEN LET B=1 

2030 IF L=14 AND C>13 THEN GOTO 

VAL "1960" 

2040 IF C=14 AND L>13 THEN GOTO 
VAL "1960" 

2050 IF L>13 AND T=2 THEN GOTO V 
AL "1960" 

2060 IF 013 AND T=1 THEN GOTO V 
AL "1960” 

2070 FOR Z=Q TO A 

2080 FOR N=0 TO B 

2090 IF M$ (L+Z , C+N) <> ” " THEN GO 

TO VAL "1960" 

2100 NEXT N 

2110 NEXT Z 

2120 FOR Z=0 TO A 

2130 FOR N=0 TO B 

2140 LET M$ (L+Z , C+N) =" * " 

2150 NEXT N 



2160 NEXT Z 

2170 IF L=14 OR C=14 THEN GOTO V 
AL "2290" 

2180 IF T=1 THEN GOTO VAL ”2240" 

2190 FOR N=0 TO 1 

2200 LET M$ (L+N,C)=”GT 

2210 NEXT N 

2220 NEXT D 

2230 GOTO VAL "2400" 

2240 FOR N=0 TO 1 

2250 LET M$ ( L , C+N ) = "0” 

2260 NEXT N 
2270 NEXT D 
2280 GOTO VAL "2400” 

2290 IF C=14 THEN GOTO VAL "2350 

2300 FOR N=0 TO 1 
2310 LET M?(L+1,C+N)='T3" 

2320 NEXT N 
2330 NEXT D 
2340 GOTO VAL "2400" 

2350 FOR N=1 TO 2 

2360 LET M$ (L+N, C+l) ="0" 

2370 NEXT N 

2380 NEXT D 

2400 FOR S=1 TO 4 

2410 LET L—INT (RND*15)+1 

2420 LET C=INT <RND*15)+1 

2430 IF M$ (L, C ) =" " THEN GOTO VA 

L "2450" 

2440 GOTO VAL "2410" 

2450 IF L=1 OR L=+15 OR C=1 OR C= 
15 THEN GOTO VAL "2510” 

2460 IF M$ {L-l ,C-1) <>”*" AND M$ ( 
L— 1, C-l) <> 11 ” OR M$ ( L- 1/C) <> 11 * 11 
AND M$(L-1,C) <>” ” OR M$ (L-l, C+l 
)<>"*" AND M$ (L-1,C+1) <> " " OR M 
$ (L,C-1) <>"*" AND M$(L,C-1)<>“ " 
OR (L,C+1) <>"*" AND M$(L,C+1) 
<>" " OR M$ (L+l , C-l ) <>"*" AND M$ 
(L+1,C-1 ) <>" " OR M$ (L+l ,C) <>”*" 
AND M$ (L+1,C) <>" ” OR M$ (L+l ,C+ 
1)<>"*” AND M$ (L+l ,C+1 ) <>" " THE 
N GOTO 2410 
2470 GOTO VAL "2760" 

2510 IF L=1 AND C=1 THEN GOTO VA 
L "2600" 

2 520 IF L=1 AND C=*15 THEN GOTO V 
AL "2620" 

2530 IF L=1 AND C>1 AND C<15 THE 
N GOTO VAL "2640" 

2540 IF L=15 AND C>1 AND C<15 TH 
EN GOTO VAL "2660" 

2550 IF L=15 AND C=1 THEN GOTO V 
AL "2680" 

2560 IF L=15 AND C=15 THEN GOTO 
VAL "2700" 

2570 IF C=1 AND L>1 AND L<15 THE 
N GOTO VAL "2720" 

2580 IF C-15 AND L>1 AND L<15 TH 
EN GOTO VAL "2740" 

2600 IF M$ (L,C+1) <>”*” AND M$ (L, 
C+l}<>" ” OR M$ (L+l ,C) <>"*" AND 
M$ ( L+ 1 , C ) < > " " OR M$ (L+l ,C+1) <> " 
*" AND M$ (L+l, C+l) <> " " THEN GOT 
O 2410 

2610 GOTO VAL "2760” 

2620 IF M$ (L,C-1) <>"*" AND M$(L, 
C-l)<>" " OR M$ (L+1,C) <> "*" AND 
M$ (L+1,C) <>” ” OR M$ (L+l, C-l) <>" 
*" AND M$ (L+l ,C-1) <>" " THEN GOT 
O 2410 

2630 GOTO VAL "2760" 

2640 IF M$ (L,C— 1) <>"*" AND M$(L, 
C-l)<>" " OR M$ (L.C+l) <>”*" AND 
M$ (L ,C+1 ) <>" " OR M$ (L+l ,C-1) <>" 
*” AND M$ (L+l, C-l) <>" " OR M$ (L+ 
1,00"*" AND M$ (L+l ,C) <> " ” OR 
M$ ( L+l ,C+1) <>"*" AND M$ (L+l ,C+1) 
<>" " THEN GOTO 2410 
2650 GOTO VAL “2760" 

2660 IF M$ (L,C-1) <>"*" AND M$(L, 
C-l)<>" " OR M$ (L,C+1) <>"*" AND 
M$ (L,C+1) <>" " OR M$ (L-1,C-1) <>" 
*” AND M$ (L-1,C-1) <>” " OR M$(L- 
1,C) <>"*” AND Mf (L— 1 , C) < > ” " OR 
M? (L-l, C+l) <>"*" AND M$ (L-l, C+l) 
<>" " THEN GOTO 2410 
2670 GOTO VAL "2760" 

2680 IF M$ (L-1,C) <>"*" AND M$ (L- 



1,0 <>" " OR M$ (L-l, C+l) <>"*" AN 
D M$ (L-l, C+l) <>" ” OR M$ (L, C+l) < 
>"*" AND M$(L,C+1)<>" " THEN GOT 
O 2410 

2690 GOTO VAL "2760" 

2700 IF M$ ( L , C— 1 ) < > " * " AND M$(L, 
C-l)<>" " OR M$(L-1,C-1) <>"*" AN 
D M$ (L-l, C-l) <>" ” OR M$ ( L-l , C) < 
>••*■■ m$(L-1,C)<>" ” THEN GOT 

O 2410 

2710 GOTO VAL "2760" 

2720 IF M$ (L-l ,C ) <>"*" AND M$ (L- 
1,0 <>" " OR M$ (L-l, C+l) <>"*" AN 
D M$ (L-l, C+l ) <>" " OR M$ (L ,C+1 ) < 
>"*" AND M? (L,C+1 ) <> " » OR M?(L+ 
1,C+1)<>"*" AND (L+l ,C+1) <> " ” 
OR M$ (L+1,C) <>"*" AND M$ (L+l ,C) 
<>" " THEN GOTO 2410 
2730 GOTO VAL "2760” 

2740 IF M$(L-1,C)<>"*" AND M$(L- 
1,0 <>" " OR M$ (L-l ,C-1) <>"*" AN 
D M$ (L-l , C-l) < > " " OR M$(L,C-1)< 
>"*" AND M? (L,C-1) <> " " OR M? (L+ 
1 ,C-1) <> " *" AND M$ (L+l, C-l) <>" " 
OR (L+l , C ) <> " *" AND ( L+l , C) 

<>” " THEN GOTO 2410 
2760 LET M$(L,C)=’T3" 

2770 NEXT S 
2780 SLOW 

2790 PRINT AT 18,1; "OK... AGORA 

ED A SUA VEZ 

2800 FOR N=1 TO 40 

2810 NEXT N 

2815 DIM A$ (38 , 2) 

2816 LET A=0 

2817 LET HID— 6 

2820 PRINT AT 18,1; "MONTE 5 HIDR 
OS a D 

2900 FOR H=1 TO 5 

2901 PRINT AT 18,1; "MONTE ";HID- 

H;." HIDROS BE 

2910 FOR N=1 TO 3 
2920 GOSUB VAL "3150” 

2930 NEXT N 
2940 NEXT H 

2950 PRINT AT 18,1; "MONTE 1 COUR 
ACADO ; UltEH ” 

2960 FOR N=1 TO 5 
2970 GOSUB VAL ”3150" 

2980 NEXT N 

2981 LET CRU=3 

2985 PRI NT AT 18,1; "MONTE 2 CRUZ 
ADORES : UBS] " 

2990 FOR Z=1 TO 2 

2991 PRINT AT 18,1; "MONTE ” ;CRU- 
Z;" CRUZADORES: WM 

3000 FOR N=1 TO 4 
3010 GOSUB VAL "3150" 

3020 NEXT N 
3030 NEXT Z 
3035 LET DES=4 

3040 PRINT AT 18,1; "MONTE 3 DEST 
ROYERS : IB " 

3050 FOR D— 1 TO 3 

3055 PRINT AT 18,1; "MONTE ”;DES- 

D; " DESTROYERS: KB 

3060 FOR N=1 TO 2 

3070 GOSUB VAL "3150” 

3080 NEXT N 
3090 NEXT D 
3095 LET SUB=5 

3100 PRINT AT 18,1; "MONTE 4 SUBM 
ARINOS : ■ 

3110 FOR S=1 TO 4 

3115 PRINT AT 18,l;“MONTE ” ; SUB- 

S ; ” SUB MARINOS : fl 

3120 GOSUB VAL "3150" 

3130 NEXT S 

3140 GOTO VAL "4000“ 

3150 PRINT AT 19,1; “DIGITE LINHA 
/COLUNA " 

3160 INPUT L$ 

317 0 IF LEN L? <>2 THEN GOTO VAL 
"3150" 

3180 LET L=CODE L$(l)-37 

3181 IF L'< 1 OR L>15 THEN GOTO VA 
L "3340" 

3190 LET C=CODE L$(2)-37 

3220 IF C<1 OR C> IS THEN GOTO VA 

L "3360” 



i. 
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RARA VOCE 



CURSOS Dl APERKICOAMiNTO 



Comece uma nova fase na sua vida profissional. 

Os CURSOS CEDM levam ate voc§ o mais moderno ensino 
tecnico programado e desenvolvido no Pafs. 




afuaS ? aP °K t,,aS C ° m Inf ° rma ^ es compietas e sempre 
a zaaas Tudosobre os mais revolucion4rio CHIPS E vocp 

recebe, alem de uma soltda forma<?4o teorica, KITS elaborados 
para o seu desenvolvtmento pritico. Garanta agora o seu futuro 



iH 1 1 ' I 



M4todos novos e m4ditos de ensino garantem um aprendizado 
pratico imiito melhor, Em cada nova lipffo, apostilas ilustradas 
enstnam tudo sobre Amplificadores, Caixas Acusticas Equalizadoies 
Toca-discos, Smtomzadores AM/FM, Gravadores e Toca Fitas, Capsu'las 
o n oca pt adores, Mrcrofones, Sononzacao, Instr umentacao de Medirias 
em Audio, Tecmcas de Gravapao e tamb4m de Beparacao em Audio 




CEDM 20 KIT 
de Ferramentas 
CEDM 78 - KIT 
Fonts de ANmentagao 
5v/1A. CEDM 35 KIT 
Placa Experimental 
CEDM 74 KIT 
de Componentes. 

CEDM 80 

MICROCOMPUTADOR 
Z80 ASSEMBLER, 





1MMMB S 




Este CURSO, especial men te programado, oferece os 
fundamentos de L nguagem de ProgramagSo que dom.na o un.verso 

t£.™a“o BASI? 0 " 65, Din3micoe abrangente. ensma desde o BASIC 
3 , te ? BAS ‘ C mais avancado. mcluindo nogoes b4s<cas sobre 

Processamento 6 de Pro 9 rama ^ Sistemas de 
Tirn!f « d Dados, Teleprocessamento, Multiprogramacao e 
JnnZr efT \ L,n 9 ua 9 em de Maquma. que proporcionam um qrande 
conhecmento em toda a 4rea de Processamento de Dados 







?^5/iA Kl llnMT m KT-;* S p, CED E' 2 KIT Fon,e af 

PFMlS Sit! P 3 KIT Paca E *P e ''™ntal 
Estfr^n rfnL K C °^ p ® nentes ' CEDM5 KIT Pre-amplificador 
Estereo. CEDM-6 KIT Amplificador Estereo 40w. 



„,,„ Voce desenvolver um ritmo prdprio de estudo. A fin- 

"FIS**"*? d °* G , URSOS CEDM permite aprendi 2 ado f4cil. £ 
para esclareeer qualquer duvida, o CEDM col oca 4 sua disposi C 5b uma 

J , . 6 P rofessor ^ sempre muito bem acessorada. AI4m disso, voc* 
recede K ITS preparados para os seus exercfcios pr4ticos. 

rcrw!? dern0 6 P erfeita J[ T,0n te adequado 4 nossa realidade, os CUR- 
™^ EDM por cor ™ s Pondencia garantem condipdes ideals para o seu 
aperfeigoamento profissional. ^ seu 



Vocfi tambem pode ganhar um MICROCOMPUTADOR 
Teiefone (0432) 23-9674 ou coloque hoje 
m «mo no Correio o cupom CEDM. 

Em poucos dias voctS recebe nos* os catSlogos de apresentacao. 



I :• 



KIT CEDM Z80 
BASIC Cientlfico 
KIT CEDM Z80 
BASIC Simples. 

Gabanto de Fluxograma 
E-4, KIT CEDM SOFTWARE 
Fitas Cassete com Programas. 




I rl 1 M Av " mda S*o Peulo, 718 - Fona (0432) 23-9674 

* CAIXA POSTAL 1642 -CEP 86100 -Londrina- PR 
CURSO DE APERFEICOAMENTO POR CORRESPONDENCE 

Sollcito o mais rtpldo possfvel Informal sem compromlsso sobre o 
CURSO de. . . 



MS 





batalha naval 



3230 IF P$(L,C)<>" " THEN GOTO V 
AL "3380" , 

3240 PRINT AT L,C;'W 

3250 PRINT AT 19,1;" (S/N) - CONF 

IRME - POR FAVOR " 

3270 IF INKEY$="S" THEN GOTO VAL 
"3400" 

3280 IF ltiKEY$="N" THEN GOTO VAL 
"3300" 

3290 GOTO VAL "3270" 

3300 PRINT AT L,C;" " 

3320 PRINT AT 19,1;” 

3330 GOTO VAL "3150" 

3340 PRINT AT 19,1;"LINHA INVALI 
DA 

3341 FOR T=1 TO 10 

3342 NEXT T 

3350 GOTO VAL "3150" 

3360 PRINT AT 1 9 , 1 ; “ COLUNA INVAL 
IDA 

3361 FOR T=1 TO 10 

3362 NEXT T 

3370 GOTO VAL "3150" 

3380 PRINT AT 19,l;"CAMPO JA OCU 
PADO 

3381 FOR T=1 TO 10 

3382 NEXT T 

3390 GOTO VAL "3150” 

3400 PRINT AT 19,1;" 

3410 LET P¥(L,C)=’W 

3411 LET A=A+1 

3412 LET A$(A)=L$ 

3420 RETURN 

4000 PRINT AT 18,l;"MUITO BEM... 
VOCE TEM 3 TIROS . " 

4010 PRINT AT 20,lj“E LOGO EM SE 
GUI DA DARE I OS ME US" 

4011 FOR N=1 TO 30 

4012 NEXT N 

4020 FOR N=1 TO 3 
4030 PRINT AT 17+N,1;” 

4040 NEXT N 
5000 LET M=0 
5010 LET P=M 
5020 DIM 1(3) 

5030 DIM 0(3) 

5035 DIM W$ (3,2) 

5040 FOR N=1 TO 3 

5050 PRINT AT 18, 1; "INFORME LINH 
A E COLUNA >JUNTOS<" 

5060 INPUT N* 

5065 IF N$="**" THEN GOTO 8525 
5070 IF LEN N$<>2 THEN GOTO VAL 
"5160" 

5080 LET L=CODE N?(l TO 1) -37 
5090 IF L<1 OR L>15 THEN GOTO VA 
L ".5160" 

5100 LET C=CODE N$(2 TO 2) -37 
5110 IF C<1 OR C>15 THEN GOTO VA 
L "5160" 

5120 PRINT AT L,C+16;"*" 

5130 LET I(N)=L 
5140 LET 0 (N) =C 
5145 LET W$ (N) =N$ 

5150 GOTO VAL "5200" 

5160 PRINT AT 18,1; ">>>>> TIRO I 
NVALIDO <<<<< 

5170 FOR Y=1 TO 10 

5180 NEXT Y 

5190 GOTO VAL "5050" 

5200 NEXT N 
5205 FOR N=1 TO 3 

5210 IF M$ (I (N) ,0 (N) ) <>" " AND M 
$ (I (N) ,0(N) )<>"*" THEN GOTO 5260 
5220 LET M$ (I (N) ,0 (N) ) =" *■" 

5230 PRINT AT 17+N , 1 ; "TORPEDO ; 
N;“ AGUA 

5240 NEXT N 

5241 FOR Z— 1 TO 30 

5242 NEXT Z 

5250 GOTO VAL ”5590" 

5260 LET X=CODE M$ (I (N) ,0 (N) ) 
5270 IF X=8 THEN GOTO VAL ”5330’ 
5280 IF X= 17-3 THEN GOTO VAL "542 

„ c/1 , 

5290 IF X=168 THEN GOTO VAL "544 
0" 



5300 IF X=191 THEN GOTO VAL "546 

5310 IF X=184 THEN GOTO VAL "548 

5320 IF X=169 THEN GOTO VAL ”550 

0” „ 

5330 PRINT AT 17+N, 1; "TORPEDO ; 

N;" PARTE JA ATINGIDA " 

5340 PRINT I (N) ,0(N) +16; “U" 

5350 POR B=1 TO 3 
5360 RAND USR 16542 
5370 FOR Z=1 TO 5 
5380 NEXT Z 
5 390 NEXT B 
5400 NEXT N 
5410 GOTO VAL "5590" 

5420 PRINT AT 17+N, 1 ; "TORPEDO ^ ; 
W$(N};" >> HIDRO << 

5430 GOTO VAL "5510" 

5440 PRINT AT. 17+N, 1; "TORPEDO^ ; 

W$ (N) ; " > COURACADO < 

5450 GOTO VAL "5510" 

5460 PRINT AT 17+N, 1 ; "TORPEDO^ ; 

W$ (N) CRUZADOR < 

5470 GOTO VAL "5510" 

5480 PRINT AT 17+N , 1; "TORPEDO ^ ; 

W$ (N) ; " > SUBMARINO < 

5490 GOTO VAL "5510" 

5500 PRINT AT 17+N, 1 ; "TORPEDO^ ; 

W$ (N) ; " > DESTROYER < ( '' 

5510 PRINT AT I (N) ,0 (N) +16 ; 

5520 LET M$(I (N) ,0(N)='W 
5530 FOR W=1 TO 6 
5540 RAND USR 16514 
5550 NEXT W 

5560 LET P=P+1 t 

5561 PRINT AT 21 ,1 ; "HUMANO - ;38 
-P , AT 21,15; "MICRO =";38-M;“ " 

5570 IF P=38 THEN GOTO VAL 5900 

5580 NEXT N 

5581 FOR N=1 TO 50 

5582 NEXT N 

5590 FOR N=1 TO 3 
5600 PRINT AT 17+N,1;" 

5610 NEXT N 

5611 PRINT AT 18 ,1; "RECONHECIMEN 
TO? (S/N) " 

5612 IF INKEY$=”S" THEN GOTO VAL 
"8000" 

5613 IF INKEY$="N" THEN GOTO VAL 
"5620" 

5614 GOTO VAL "5612” 

5620 PRINT AT 18,1; "EE MINHA VEZ 
... LA VAI CHUMBO" 

5630 FOR N=1 TO 10 

5640 NEXT N 

5650 PRINT AT 18,1;" 

5655 FAST 

5660 FOR N=1 TO 3 

5661 IF NI=1 THEN GOTO VAL 5670 

5662 IF NI=2 THEN GOTO VAL "5664 

5663 IF NI=3 THEN GQTO VAL "5669 

5664 IF M<P THEN GOTO VAL "5741" 

5665 GOTO VAL "5670" 

5669 IF M<=F THEN GOTO VAL "5741 

5670 LET L=INT (RND*15)+1 
5680 LET C=INT (RND*15)+1 

5690 IF P$(L,C)='W OR P$(L,C)= 

*" THEN GOTO VAL "5670" 

5700 IF P $ ( L , C ) = 1 W THEN GOTO VA 
L "7000" 

5710 LET P$(L,C)=”*" 

5720 PRINT AT L,C;"*” 

5725 RAND USR 16542 
5730 NEXT N 
5735 SLOW 

5740 GOTO VAL "5830" 

5741 LET SA=INT (RND*38)+1 

5742 IF A? (SA) ="**" THEN GOTO VA 
L '"5741" 

5743 LET L=CODE A$(SA)-37 

5744 LET C=CODE A$(SA,2 TO )-37 

5745 LET A$ (SA)="**" 



5750 LET P$ (L,C) =HT 
5755 SLOW 

5760 PRINT AT L,C;'W 
5770 FOR W=1 TO 10 
57 71 PRINT AT L/C?" *' 

5780 PRINT AT L,C;'W 

5781 RAND USR 16542 

5790 NEXT W 

5791 PRINT AT L,C;"H" 

5800 LET M=M+1 „ 

5801 PRINT AT 21 , 1 ; "HUMANO = ;38 
-p , AT 21, 15; "MICRO =";38-M; 

5810 IF M>=38 THEN GOTO VAL 600 
0“ 

5815 FAST 
5820 NEXT N 
5 8 2 5 SLOW 

5830 PRINT AT 18,1;“ >>> HUMANO 

JOGA <<<" 

5840 FOR N=1 TO 10 

5850 NEXT N 

5860 PRINT AT 18,1;" 

5870 GOTO VAL' "5020" 

5900 PRINT AT 18,1;” >>> PERDI 

A BATALHA <<< ” „„„„ 

5910 PRINT AT 19,1;"MEUS NAVIOS 
FORAM DESTRUIDOS" j 

5920 PRINT AT 20,1;" REND | 
O - M E ” 

5930 FOR N=1 TO 50 
5940 NEXT N 
5960 CLS 

5970 GOTO VAL "8530” 

6000 PRINT AT 18,1; "VOCE FOI RED 
UZIDO A CINZAS" 

6010 PRINT AT 19,1; "NAO CONSEGUI 
U RESISTIR AOS MEUS" 

6020 PRINT AT 20,1; "TIROS CERTEI 
ROS ... HA HA HA 
■ 6030 GOTO VAL "5930" 

7000 FOR W=1 TO 38 . 

7010 IF CHR$ ( (L) +37) +CHR$ ((C) + 

37) =A$ (W) THEN LET A$(W)="** 

7020 NEXT W 
7030 GOTO 5750 

6000 PRINT AT 19 , 1 ; "COURACADO 5 
PARTES" 

8010 GOSUB VAL "8100 

8020 PRINT AT 19, 1; "CRUZADOR 4 

PARTES"" ^ 

8030 GOSUB VAL "8100 
8040 PRINT AT 19 , 1 ; "DESTROYERS 2 
PARTES " 

8050 GOSUB VAL "8100 

8060 PRINT AT 19 , 1; "SUBMARINO 1 

PARTE " 

8070 GOSUB VAL "8100 
8080 GOTO VAL "5590” 

8100 FOR W=1 TO 15 
8110 NEXT W 

8500 PRINT N , ,,,,,,, "ESCOLHA O NI 
VEL DE JOGO" , , , "1 - FACIL”,, 2 

MEDIO",, "3 - DIFICIL" 

8501 INPUT NI 

8510 IF NKl OR NI>3 THEN GOTO V 
AL "8501" 

8515 CLS 
8520 RETURN 

8525 CLS — 

8530 LET s $ 

8540 PRINT AT 1,5;Z$ 

9000 FOR W=1 TO 15 
9005 LET X=165+W 

9010 PRINT AT W+1,4;CHR? X;M¥ (W) 

;CHR$ X 

9020 NEXT W 

9025 PRINT AT 17,5;Z$ 

9030 PRINT AT 19 , 5; "NAVIOS DO MI 
CRO” 

9040 PRINT AT 21,1; "P/ OUTRA BAT 

alha aperte run" 

9045 STOP 

9050 SAVE "BATALHA NAVAL" 

9060 .RUN 
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NA PAGJNA 



75, no programa Projeto de 
Antenas Direcionais, troque 
as linhas 170 e 590 que fo- 
ram publicadas por: 



29 1 5, no programa Vigas Con- 

tinuas, troque as linhas 480, 
510, 550, 635, 780, 940, 

1 160 e 1200 que foram pu- 
blicadas por: 



29 42, no programa Linha de 

Influencia, troque as linhas 
75, 430 e 460 que foram 
publicadas por: 



29 65, no programa Catalogo, 

troque a linha 38400 que 
foi publicada por: 



29 77, no programa Marcus , 

troque a linha 200 que 
foi publicada por: 



ofi® 



CORREQAO 

170 LET REF=INT{ 500/F*30+0 . 5 )/ 1 00 
590 FOR I=INI TO FIM 

480 R=— ( U ( 1 , 2 ) *X+U( 1,3) )/U ( 1 , 1 ) :R( 1 ) =R :R( 2 ) =X:MF=U (2,1) *R+U( 
2,2) *X+U (2,3): GOTO 520 ' 

510 R= ( Y-U (2,2) *X-U (2,3) ) /U ( 2 , 1 ) :R( 1 ) =R : R( 2 ) =X :MF=Y 
550 PRINT"MOM. NEGATIVO \= ",INT(R(2)) 

635 PRINT: PRINT: PRINT"MOMV FINAL = 11 INT(MF) 

780 PRINT"QE = " , , I NT ( Q ) 

940 IF D<0 THEN GOTO 1010 

1160 G=P ( A) : Q=2*Z( 1 )*A(G)+Z(2) : PRINT "QD= ",,INT(Q) 

1200 PRINT"M+ = ” ,INT(X(4)) 

75 : INPUT "SIMP(0), ENG(O.S) = ";F 
430 : Y=H* (M*R~S ) / ( 1-H*M) 

460 : Y=M* { H*S-R ) /{ 

38400 IFJ> JNMP% ( C 1 ) THENC3 { 7 ) =J-FNMP% ( C 1 ) :J=FNMP%(C1 ) :GOSUB 
3 8 500 : C3 ( 1 )=C3( 1 ) - J :C3 { 6 ) =C3 { 6 ) +J : J=C3 ( 7 ) :GOTO3 8 400 



200 .5 



I 



30 3 8 , n a matdria Pacotdo de 

hardware para os Sinclair, 
a figura 7 foi publicada 
faltando alguns dados; veja 
a correta; 



I 1/* Vm 

QJJ *001 P ~ — 1 



D W* \io 

*001 P 






1 5, do programa Editor 
de Textos, as dltimas 
linhas da listagem foram 
suprimidas; acrescente, 
ap6s a linha 2360, as 
seguintes linhas: 



TRIMP0T 

3H3 



Z O.OIUF 
Ch RAM . 



MO r A : - 

T000S OS RESISTORES 
SAO 0E 1/8* 



Figura 7 do Pacotdo de Hardware para os Sinclair 







2370 IF J=TM THEN 2390 

PS ll c ctic HR ;^ 24,0 

2400 ^ $ 2^^ e T ^„ IP ™ en 
2410 PRINTER , R$ ;CHR$ (CR " " ; 

2420 GOTO 2360 
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Nao deixe que os bytes decidam por vocS. Conhega-os melhor e aprenda 
a controla-los. Aqui, a /guns segredinhos sobre eles 



Mantenha seus bytes 
sob controle 

Carlos A/berto Diz 



T odos conhecemos o byte e o tratamos com a familia- 
ridade de um velho amigo. Sendo assim, sabemos que 
um byte d um conjunto de bits (oito) e que um bit e 
algo que s6 pode ter dois valores ou estados: 1 (ligado 
ou setado) ou 0 (desligado ou ressetado). Um bit e, portanto, o 
menor elemento de informa$£o num computador. 

0 valor de um byte e determinado pelo estado dos bits 
que o compQem e pela ordem em que se encontram, pois os 
bits ndo sdo todos iguais. Cada bit, por sua posi^So dentro do 
byte, corresponde a uma potencia de 2, na seguinte ordem (no- 
te que os bits estSo numerados da direita para a esquerda, co- 
megando com o numero 0 e terminando com o numero 7): 

Bit n - : 7 6 5 4 3 2 1 0 

x : 76543210 

2 x: 128 64 32 16 8 4 2 1 

O valor de um byte e a soma dos vaiores tpotencias de 2) 
individuais dos bits que nele encontram-se setados (lembramos 
que um numero elevado £ potencia de 0 d igual a 1). Por exem- 
plo: 

Bit fi! : 7 6 5 4 3 2 1 0 

2 x : 128 64 32 16 8 4 2 1 

Byte A : 0 1 1 0 0 1 1 1 = 103 

Byte B : 1 1 0 0 0 0 0 0=1 92 

Byte C i 1 1 1 1 1 1 1 1 = 255 

A conclusdo e que o valor de um byte d obtido atraves da 
soma dos valores correspondentes aos bits que estejam setados. 
Conforme a tabela que acabamos de ver, o byte A e, portanto, 
igual a 64+32+4+2+1 , o byte B e igual a 1 28+64 e assim por dian- 
te. (6 interessante notar que o valor do byte C, que tern todos 
os seus bits setados, d igual a 255, ou seja, 2^—1 =256—1 
= 255. Isto significa dizer que podemos calcular o valor mdxi- 
mo represented por um numero x de bits como sendo 2 X — 1). 

Segundo as regras de combina9oes e permutagSes, oito coi- 
sas que possam ter dois estados cada uma permitem 256 com- 
bina9<5es diferentes, como e o nosso caso. Ai alguns vdo dizer: 
“Errou! Errou! Se o valor mdximo de um byte e 255, como 
pode ter 256 combina9oes?” E eu direi: “Ndo se esque9am do 
zero! Do 0 ao 255 sdo 256 passos, certo?” 
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SETANDO E RESSETANDO 

Uma das tantas conclusoes que se pode tirar da observa9do 
de mimeros bindrios d que cada bit represents um valor que 6 
uma fun9do de sua posi9do dentro do byte. Por exemplo, o 
terceiro bit (contando sempre da direita para a esquerda) re- 
presenta o valor 4 e o setimo o valor 64. 

Suponhamos ter um byte com valor 90 (01011010). Se 
conseguirmos ressetar o bit numero 3, transformaremos o 
byte 90 em 82 (01010010), pois a unica diferen9a entre 90 
e 82 e o bit numero 3 que, ndo por acaso, represents o valor 
8, ou seja, 90-82 = 8. Ressetar um bit significa portanto 
subtrair do byte o valor correspondente a este bit, enquanto 
setar o bit equivale a somar. 

Atd aqui nenhuma novidade, mas como fazer para setar ou 
ressetar o bit? Vamos, entSo, ao que afinal nos interessa: como 
manipular estes bits, ou seja, como setar ou ressetar um bit 
dentro de um byte. Para isto, serd necessdrio refrescar um pou- 
co a memoria sobre as propriedades das fun95es ldgicas AJVD, 
OR e NOT. 

A figura 1 mostra as tabelas de resultados destas opera96es, 
que, apesar de aplicdveis no micro a bytes inteiros, agem, na 
realidade, a nfvel de bit. Por exemplo: a fun9So AND, quando 
aplicada entre dois bytes (A AND B), produzird um terceiro 
(C) cujos bits serdo o resultado de um AND entre os bits de 
A e os de B, um a um, segundo as regras que constam da figu- 
ra 1. 

Usando os mesmos bytes que usamos anteriormente, se 
A= 90 e B= 82, entao A AND B = C e C= 82 (figura 2). Mara- 
vilha! Conseguimos encontrar uma maneira de' ressetar o bit 
numero 3 em A, e apesar de nSo ser exatamente a solu^do, 
aqueles que curtem um suspense jd tem aqui uma boa diea, 

Se eu quiser ressetar o bit numero 1 de 18 (00010010), 
devo entdo ANDea-Io (que o Aurdlio me perdoe!) com 16, | 
pois 18 AND 16 = 16 (isto d, 18 com o bit 1 ressetado). “fi, 
mas se eu souber de antemSo qual o valor de B para transfor- j 
mar A em B, por que ndo uso B de uma vez e pronto?”, dirdo j 
aqueles que sempre dizem estas coisas e com razdo, pois o que j 
precisamos e de uma tecnica que seja independente do byte j 
original. < 
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A = 01011010=90 
B - 010 10 01 0=8 2 
A AND B = C = 01010010=82 



Figura 2 



E realmente a dica 6 boa, jA que um momento de reflexffo 
revela que conseguimos ressetar o bit que querfamos porque 
fizemos um AND dele com 0, e o resto do byte ficou inaltera- 
do porque todos os denials bits foram ANDeados com 1 (con- 
fira voce mesmo), A conclusffo e que, para ressetar um bit num 
byte determinado, d preciso ANDear este ultimo com outro 
cujos bits estejam todos setados, exceto o que corresponde & 
posifSo do bit que queremos ressetar. Em outras palavras (ou 
mimeros): para ressetar o bit numero 3 (2*3= 8) de 90 preci- 
samos ANDed-b com 247 (255-8= 247),.pois 01011010 AND 
111 101 1 1 - 01010010, certo? E, da mesma forma, para setar 
este bit de novo, precisamos ORea-lo com 8, pois 01010010 
OR 00001000 = 01011010. E, finalmente, como NOT 
(00001000) = 11110111, entSo 90 AND(255— 8) = 90 AND 
NOT(8). 

Fazendo algumas experiencias, descobrimos, adicionalmen- 
te, que se chamarmos de X um byte que consista de um s6 bit 
na posigSo correspondente ao bit em A que deseiamos mani- 
pular, entffo: 

X se o bit e a questao estiver sctado 

A AND X = 

0 se o bit em questio estiver ressetado 



Em resumo: 

1 -a fun$£o AND permite verificar o estado de um bit; 

2 — a fungSo AND NOT permite ressetar um bit; 

3 — a fungffo OR permite setar um bit. 

E aqui os sequazes de Sao Tome se questionarffo: “Serd este 
cara mais um daqueles loucos que gostam de descobrir manei- 
ras de contrariar o computador e fazer o impossivel s6 pelo 
prazer de dizer que estd feito, ou este papo de mexer nos bits 
serve para alguma coisa de util?” E a estes eu respondo: as 
grandes invengdes nSfo surgem eift'fungiib de uma necessidade, 
mas sim vice-versa, pordm desta vez j& existe uma aplicacdo > 
prdtica para tudo que acabo de re velar... 

_ EXEMPLOS DE APLIC AQAO ” 

Como primeiro exemplo, suponhamos que em um determi- 
nado pro grama espere-se do operador., pela razSo que seja ? o 
input de uma letra, por exemplo, A maiusculo. Se o teclado do 
computador tiver maiusculas e minusculas e o programa nSo 
especificar que espera uma letra maiuscula, o operador estard 
sujeiro a teclar um a ou um A, depen dendo mais da inspiragffo 
do momento do que de uma consideragffo Idgica sobre as con- 
sequencias de uma decisdo ligeira. E, segundo a lei de Murphy, 
ele sempre teclard a letra errada e o seu programa poderd en- 
tdo fazer coisas incnveis... 

Contando com esta inevitdvel insensibilidade do operador, 
vocd poderd fazer com que o programa aceite indiferentemente 
minusculas e maiusculas. Para tan to, voce poderd usar uma das 
213 diferentes solugfies encontradas para este problema pelos 
analistas do American Institute of Informatic Idiosynchrasies 
(AIII), como por exemplo : 
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INFORMATICA AO 

■ ALCANCE 

DE TODOS 

ENTRE NA ERA 
DOS COMPUTADORES 




• Introdugao ao Processamento 
de Dados • Digitapao • Basic 

• Coboi • RPG • PL 1 • Fortran 

• Assembler • Mumps 



227-7417 - 521-4936 - 267-9261 



Copa — Centro — Tijuca — Meier 
Madureira — N. Iguagu — Caxias 



DATABERA R — PROCESSAMENTO 
DE DADOS Rio de Janeiro 



O sucesso no Micro-Festival 84, 

” ” da qualidade maior, 

” ” do prego menor e 

” ” das vendas realizadas, 

agora tem um novo nome: 

^crafyc 

e um novo enderego: 



[computer store | f 

A Sacco Computer Store, estd agora em novas e I 
amplas instalacOes com sua variada linha de compu- 
tadores e perifericos, destacando-se o novo micro- 
computador CRAFT If plus*, totalmente compatfve! 
com D.O.S. 3.3 e CP/M. 

Conhega todas as caractertsticas e vantagens 
do CRAFT II plus, tambdm compativel com IVANITA* *, 
em nosso novo enderego: 

Al. Gabriel Monteiro da Silva, 1229 - J. Paulistano 
Sao Paulo - Tels.: (011) 853-5520 e 280-4778 

C) CRAFT II plus e maica registrada da MICROCRAFT Ind a Com uqa 
(*•) IVANITA - Ge.adoi de.Caiaclaies para lingua pottuguesa 
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MANTENHA SEUS BYTES SOB CONTROLE 



?n FfiP = S r Tn ^ o' C 52^r <0 ?] k REM reseta todos os bits dos 20 bytes que coi&Doem RPi 
20 FOR 1-0 TO 15?. REM 160 vezes. uma oara cada resDosta 
2^ BY = INT(I/8) + l: BI = <(I/8>-INT<I/8>> *8 
30 PRINT'Tndique a resposta <S/N) 

tn X $=""THEN 40 ELSE X $ = CHR5 (ASC (X$) AND NOT<32» 

fn ‘SN”,XS) GOTO 70.80:REM Aceita soraente S ou N 

Volta a pedir input caso nao tenha sido S nem N 

1° Slvi ™ E ,v' I> = S HR$<ASC<MIDS<RPS - BY ’ 1)) 0R (2ABI » : HEM Seta o bit se for Sim 
eu Ntx I .REM Vem direto oara aaui se for NAO <os bits foram resetados no inicio) 



Figura 3 



• dizer ao operador que tipo de letra voce quer (pouco imagi- 
native); ' \ 

• duplicar o cddigo de resposta (trabalhoso e ineficienlte); 

• fazer um IF para ver se a letra e minuscula e transforrrid-la 
em maiiiscula se realmente for (muito pouco elegante e lento). 

Voce pode escolher qualquer uma, ou entdo op tar pela solu- 
fdo mais rdpida e eficiente: fazer um AND da letra inputada 
com NOT(32) para transforma-la em maiiiscula se for miniis- 
cula, ou deixa-la como esta, se for maiiiscula. 

Gostou? Bom, deixe-me explicar melhor. Supondo que a 
letra inputada esta em XS, entao os comandos sao:X$ = CHR$ 
(ASC(XS) AND NOT(32)), e X$ serd sempre uma letra maius- 
cula. 0 segredo estd em lembrar que a diferen^a entre os codi- 
gos ASCII de uma letra minuscula e maiiiscula e sempre 32 
(ASC(a)= 97 e ASC(A)= 6S), e em perceber que 32 e X) valor 
do bit 5 e que, portanto, e suficiente ressetar este bit para sub- 
trair 32 de uma letra minuscula e transforma-la em maiuscula. 



SoftKpistisn 

Revendedores Autorizados 



Rio do Janeiro 
Setetronlx 

Repubilca do UbanQ 25-A 
RIO do Janeiro - RJ 
CEP: 20061 

Gachet 

R: Dr, EUalCk. 25 SB 
Nova Frlburgo - RJ 
tel.: 22.4208 

VGC 

Av Brasil, 10 S/0? 
Araruomo RJ 
CEP: 28970 

BJTRHJVROS 

hi. Rio Branco 156 - terreo 
Rio de Janeiro - RJ 

M.CXS. 

Vise de PlralO. 303/217 
Rio de Janeiro RJ 
lei.: 267.8697 

Pernambuco 
KetrOnlco Isabel© 

R; torto Alegre 112 
Caruaru - PE 
CEP: 55100 

Alagoas 

Expoenta 

Av, Siqueira Campos. 838 

Macelo - AL 

tel.: (082) 223.3979 

Sdo Paulo 
Imords 

Av dos Imards. 457 

Sdotaulo SP 

let : 61 .4049 - 61.0946 

Fotoleo 

R: Boa Vista, 314 - 3° andar 

Sdo toulo-SP 

tel.: 35,7131 R/32 

Memocards 

R- Amador Buena 855 

Ribeirdo Preto - SP 

tel : (016) 636.0586 



Fotoplica 

Alameda Jurud, 434 
Sdo Fd jlo - SP 
tel: 421.5211 

Rite 

R: Frei Caneca, 7 
Santos - SP 
tel.: 35.1792 
Compute riand 
Av Angelica. 1996 
Sdo Pbulo ■ SP 
CEP: 01228 

Uvrarla Polledro 

R 1 Aurora, 704 

Sdo Fbulo ■ SP 

tel 221 6764 

RC Microcomputadores 

Av, Estados Onldos. 983 

Piracicaba - SP 

tel 33 7018 

Rio Grande do Sul 
Advancing 

R: Andradas, 1560 gateria 
Malcon 518 toffo Alegre •• RS 
tet : 26 8246 

J.H. Santas 

Rjo Otavio Rocha, 41 
Porto Alegre - RS 
CEP: 90000 

India Center 

R: Florlono toixoto, m2 coni. 
33/43 Santa Maria ■ RS 
tel.: (055)221 7120 

Geremla Lida. 

Av. Julio de Castilhos, 1872 
Caxios do Sul RS 
tel 221 1299 

Nordemoq 

Av. Julio de Castilhos, 3240 
Caxias do Sul • RS 
tel. 221 3516 

Mlcromega 

R. Julio de Castilhos, 441 - 
1 °andar Novo Fiamburgo - RS 
tel.: (0512)93.4721 



Bahia 

Oflcclna 

Shopping Center ltalgdra 
Ii40 1 ° piso 
Salvador - BA 
tel,: (071)248.6666 

Santa Catarina 
Supermicro Show 

R: dos iiheus, 10 li 6 
Florlandpolis - SC 
tel : 22 8770 

Parana 

Compuftque 

Av, Bdtel. 1750 
Curitiba PR 
tel, 243 1731 

Madison 

Av Mai. Deodora, 31 1 
Curitiba - PR 
tel, 224.3422 

Minas Gerais 
Computronlx 

R: Sergipe. 1422 
Belo Horizonte - MG 
tel. (031)225.3305 

Eletro rddlo 

R; Aquiles loba 441-A 
Belo Horizonls MG 
tel l (031)222.8903 

Micro Popos 

R: Assis Flgueiredo. 1072 
tocos de Caldas • MG 
tel (035)721.1883 

BIOW-Up 

Av Floriano teixota 396 
Uberfdndio - MG 
tel,: 235,1413-235 7359 

Brasilia 

Dlgltec 

SCLN 302 bl.A lj.63 
Brasilia - DF 
tel (061) 225.4534 
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Ja se a letra for maiuscula, o bit 5 \& estar2 ressetaclo e nossa 
opera?Jo nSo fara nenhuma diferen 9 a. 

Suponhamos agora que voce queira guardar em disco as res- 
postas de um estudo sobre “Hdbitos dos programadores de 
microcomputadores do Brasil”, feito pormeio de formuldrios, 
sendo que cada formuldrio contdm 160 respostas do tipo “sim 
ou nffo”. 

Se voce guardar cada resposta como uma letra (S ou N), es- 
tara usando um byte para cada resposta, e assim cada formuld- 
rio ocupara 160 bytes de memdria. Porem, pensando bem, se 
uma resposta so pode ser SIM ou NAO, entao ela so tem dois 
estados, exatamente como um bit. 

Um bit setado poderia equivaler a um SIM e um bit resseta- 
do a um NAO. Desta forma, um so byte poderia conter oito 
respostas, e o formulario ocuparia sd 20 bytes em vez de 160, 
o que represents uma economia nSo desprezivel de 87.5%. 

Mas como fazer isso? Bom, se cada byte contem oito res- 
postas, a resposta mimero X (comegando a contar de zero) ca- 
bers no byte numero BY= INT(X/8)+l e o bit correspondente 
sera o BI=((X/8)-INT(X/8))*8. Fa ? a um OR de BY com 
(2 + BI) se a resposta X for SIM^ ou fa?a um AND de BY com 
NOT(2 ^BI) se a resposta for NAO. 

A figura 3 mostra um simples programinha que faz exata- 
mente isso num TRS-80, inclusive utilizando o macete do pri- 
meiro exemplo na linha 140. Usando este programs, as 160 
respostas estarSo todas contidas na string RP$, a qual voce po- 
derd guardar em disco, fits ou sei Id... Para decodificar RPS e 
obter de volta as respostas, use a fun$ffo AND para testar os 
bits um de cada vez, conforme expliquei. 



OBSERVANCES F1NAIS 



Este programs so funciona com BASIC de disco por causa 
das fun^Qes INSTR (linha 50) e MID$ (linha 70), mas se voce 
nffo dispSe destas fun 5 Ces, substitua as linhas 50 e 60 como 
segue: 

50 IF X$ = "S" THEN 70 ELSE IF X$ = "N" THEN 80 
60 Y$ = RIGHT? (LEFT? (RP$ , BY ) ,1) : RP$ = LEFT? ( RP$ , BY-1 ) + 
CHR$ (ASC ( Y$ ) OR (2IBI) ) -FRIGHT? (RP$ ,LEN (RP$ ) -EY) 

E importante tambem lembrar que as fun^Oes 16gicas AND, 
OR e NOT s6 fiincionam a nivel de bits nos BASIC da Micro- 
soft (que eu saiba) e com certeza n£o agem da mesma forma 
no Applesoft, o que impede que os Apple-amigos usem estas 
dicas. De qualquer forma, podem ficarsabendo que, se instala- 
rem CP/M e M-BASIC, poderdo manipular seus bits. ■ 



Carlos Alberto Diz 6 formado em Engenharia E/etrdnica pela Universi- 
dade de Dundee , Escdcia, e possui Mestrado em AdministrapSo de Em- 
presas pelo INSEAD — Instituto Europeu de Administra$So de Empre~ 
sas, Fontainebleau, Fran fa. Atualmente 4 sddo-gerente da Compusys - 
terns do Rio de Janeiro, uma system-house dedicada A consu/toria in- 
formatics e confecgSo de software sob medida. 
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Os Kits de Micro Checgaram! 

APPLEKIT - Kit de microcomputador tipo Applet 



Componentes para montagem 
de um microcomputador 
APPLEKIT completo. 



microcontrol 

Sistemas de Controles 
Tds.: (Oil) 814-0446 e 814-1110 
Sao Paulo - Brasil. 






m 



Para voce, usuario da I inha T PS-80 modeio III, duas rotinas em BASIC 
que vao ajuda-lo a utilizar mefhor os recursos do DOS 500 



Alem do BASIC, 
Assembler, DOS e 
outros misterios 



U ma das queixas mais freqiientes 
dos usuarios do TRSDOS/DOS 
500 6 a dificuldade na leitura 
do diretdrio. Devido a rapidez 
do rolamento da tela, mesmo utilizando- 
se a tecla @ , fica diffcil localizar um 
programa, principalmente porque, ao 
contrdrio do CP/M, os programas nSo 
s£o listados em ordemalfabdtica. Eo que 
acontece? Bom, se o disco em questSo 
estiver razoavelmente cheio, so consegui- 
remos achar um programa apos varias e 
irritantes tentativas, e o pior d que, em 
99% dos casos, estamos interessados 
apenas em saber se ele esta ou n$o na- 
quele disco, dispensando todasas demais 
informa 9 oes. 

A unica alternativa disponivel, que e 
chamar o BASIC e apreciar o diretdrio 
simplificado CMD“D.d”, resolve apenas 
em parte o problema, pois persiste a ne- 
cessidade de uma lenta e cuidadosa pes- 
quisa correndo a ponta do dedo indica- 
tor sobre as quatro colunas da tela atd 
se achar o programa desejado, uma vez 
que este diretorio simplificado tambdm 
nao 6 dado em ordeni alfabetica. 

Este problema serd a motivagao inicial 
para fazermos neste artigo uma pequena 
expedigao ao territorio do Assembler e 
da linguagem de mdquina. Aqui serd des- 
crita uma sub-rotina em Assembler utili- 
zando rotinas ja existentes no DOS para 
ler ou escrever em qualquer set or de um 
disco, a qual tera como aplicagao dois 
utilitarios: o primeiro fornece um dire- 



Roberto Quito de Sant' Anna 



torio em ordem alfabetica do drive dese- 
jando (leitura) e o segundo possibilita a 
mudanga do nome e/ou data de um dis- 
co (leitura-escrita). 

AS FERRAMENTAS DE TRABALHO 

As rotinas do TRSDOS/DOS 500 em- 
pregadas sao : 

• CALL 4675H — le um setor do disco; 

• CALL 4600H — escreve um setor no 
disco. 

A primeira rotina copia um setor (256 
bytes) do disco para um buffer na RAM 
definido pelo usudrio; uma vez feita a 
copia, o conteudo do buffer pode ser 
modificado & vontade e escrito de volta 
no disco com o auxflio da segunda roti- 
nU. Ambas exigem que sejam carregadas 
nos registradores do Z80 as seguintes in- 
formafoes: 

• D — trilha onde se localiza o setor de- 
sejado; 



• E — setor; 

• B — zero; 

• C — numero do drive (0 — 3); 

• HL - enderefo inicial do buffer 
256 bytes. 

A sub-rotina em Assembler, com 
respectivos codigos-objeto, esta na fig 
ra 1. Estes codigos, convertidos para 
sistema decimal, serao lidos pelos d 
programas e armazenados nas posift 
BEFOH-BEFCH (48880D-48892D), 
resultando na linha 80 do primeiro pro 
grama ou na 130 do segundo: 

DATA 17, 1, 17, 1, 0, 0, 33, 

0, 101, 205, 117, 70, 201 

Note que o primeiro 1 da seqiiencia 
(posi?So BEF1H » 48881D) correspon 
de ao ntimero do setor e que o primeiro 
0 (posi$ao BEF4H = 48884D) corres 
ponde ao numero do drive, e que o con 
teudo desses endere^os pode ser facil 
mente modificado atraves de instru^Oes 
POKE. 



11 


01 


11 


LD 


01 


00 


00 


LD 


21 


00 


BF 


LD 


CD 


75 


46 


CALL 


C9 






RET 


Figura 1 



DE, 1101H ; trilha em D e setor em E 
BC, 0000H ; zero em B e drive em C 
HL,0BF00H ; end inicial do buffer 
467 5H ; leitura do setor 

; volta ao prog BASIC 
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TRSDOS/DOS 500 X NEWDOS 



Para melhor compreensSo de nossos 
aplicativos, torna-se importante, nesta 
altura, uma breve explanacfo sob re a 



' - OUUiV a 

organiza^o da trilha 17 do TRSDOS/ 

nn? ?nn „ t .. . i 

10 . E 



DOS 500, a qual contem o diretdrio. ^ 
de toda convenience ter & mao, aldm 
do SUPERZAP do NEWDOS, o artigo 
0 NEWDOS que nao estd nos manuais 
publicado em MICRO SISTEMAS nu- 
mero 31, uma vez que a organiza$ao do 
diretorio nesses dois sistemas apresenta 
muitos pontos em comum. 



Para examinar a trilha 17 do seu dis- 
no drive 0 o disco com o 
NEWDOS e tecle SUPERZAP <ENTER> 
seguido de DTS < ENTER > ; coloque no’ 
drive 1 (ou 0, conforme sua configura- 
fao) o disco com o TRSDOS/DOS 500 
e tecle 1, 17, 1 (ou 0, 17, 1)<ENTER>. 
Importante: se voce nSo dispde de NEW- 
DOS, nao fique triste: salte por cima da 
teona a seguir, digite e usufrua dos apli- 

nhof) S ^ trate arTanjar um ra pldi- 



DRU 

0 

OH 



DRS 
309 
1 35H60 
70 



00 

10 

SO 

30 

40 

50 



TRK 
17 
i iH 



TRS 

3 

3H 



00 

90 

AO 

BO 

CO 

DO 

EG 

FO 



5E07 
F A :l 7 
FFFF 

ID no 

e:f-5C 

FFFF 

0000 

0000 

0000 

1000 

EF3C 

FFFF 

1000 

EF5C 

FFFF 

5052 



5200 
EF5C 
FFFF 
OOFD 
EF5C 
FFFF 
0000 
0000 
OOGO 
00 3 F 
FFCC 
FFFF 
0008 
EFSC 
FFFF 
4F4C 



0042 
1. 400 
FFFF 
0050 
0000 
FFFF 
0000 
0000 
0000 
004 r; 
0100 
FFFF 
0044 
0100 
FFFF 
4F47 



4153 

^287 



llFFF 
4953 
IF 2 1 
FFFF 
0000 
0000 
0000 
4F54 
0401 
FFFF 
4420 
0421 
FFFF 
4 9 43 



4943 

FFFF 

FFFF 

444F 

FFFF 

FFFF 

0000 

0000 

0000 

4F32 

FFFF 

FFFF 

2020 

FFFF 

FFFF 

4120 



2020 
FFFF 
FFFF 
494 4 
FFfP 
FFFF 
0000 
0000 
0000 
2020 
FFFF 
FFFF 
2020 
FFFF 
FFFF 
3.139 



2043 
FFFF 
FFFF 
4 F 4 3 
FFFF 
FFFF 
0000 
0000 
0000 

2042 
FFFF 
FFFF 

2043 
FFFF 
FFFF 
3832 



4 D 4 4 
FFFF 
FFFF 
4153 
FFFF 
FFFF 
0000 
oooo 
0000 
4153 
FFFF 
FFFF 
4D44 
FFFF 
FFFF 
2020 
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- - BAS 
. . CMD 
PROLOGICA ^ 1 982 ! 



DD. . . 



3QH, 90H eO0H) y u ^a S enfradfauet^eo’^ OS ^ a ^ d ° q !- atro entradas de diretdrio ativas {OOH, 
do fabricate (FOH) entrada que teve ° seu arquivo ehminado por KILL (60H) e a men sagem 



Tal como no NEWDOS, o primeiro 
setor do diretdrio contem a tabela de 
aioca^ao de espa?o no disco (a partir do 

rx t6 + °^iu° £ 6dig0 da senha do disco 
(bytes CEH e CFH), o nome/data do dis- 
co (bytes DOH a DFH), a alocacao do 
comando AUTO a partir de EOH, alem 
de outras informa 5 des. Digit ando a tecla 
ji voce ver ^ <l ue o segundo setor tam- 
bem contem os codigos HASH (calcula- 
dos atraves do nome/extens^o do arqui- 
vo - yer opfao DNTH do SUPERZAP) 
conespondentes a cada um dos arquivos 
ou o valor OOH se o arquivo foi apagado’ 
Aqui, como no NEWDOS, a seqiiencia 
dos codigos HASH corresponde exata- 
mente a seqiiencia em que os arquivos 
aparecem no diretorio, o que facilita a 
identifica^o. 



A partir do terceiro setor (ver figura 
2) come^am as entradas do diretdrio 
propriamente ditas, e aqui reside a prin- 
cipal diferenga em relaf£o ao NEWDOS: 
ao inv£s de 32 bytes, cada entrada de ar- 
quivo utiliza 48 bytes, o que nos da cin- 
co entradas por setor de 256 bytes e 
uma sobra de 16 bytes na ultima linha, 
bytes FOH a FFH, que sSo usados pelo 



fabricante para vender a sua marca (sa- 

cim% Ue C ° m ° s “ bcoman do MODnn do 
SUPERZAP voce pode colocar aqui qual- 
quer mensagem sua?...). E muito impor- 
tante notar, como diferenca fundamen- 
tal, que o TRSDOS/DOS 500 zera todos 
os bytes de uma entrada de diretorio cu- 
J° tcnha sido apagado por meio 

ae KILL (em vez de zerar apenas o pri- 
meiro byte), o que torna muito dificil 

mas nao impossivel — a recuperacfo 
de arquivos. 

A organizafao das entradas, a menos 
dos 48 bytes, 6 muito semelhante a des- 
crita no artigo sobre o NEWDOS que 
mencionamos. Atente bem, ainda na fi- 
gura 2, para o primeiro byte de cada en- 
trada (normalmente 10H para arquivos 
de usuario nlfo-protegidos e nfo-invis/- 
veis) e para os bytes de 6 a 16, que con- 
tem o nome e extensao de cada arquivo 
detalhes a serem explorados por nosso 
primeiro utilitario. Aconselho, antes de 
prosseguir na leitura, um passeio de ida 
e volta ao longo de toda a trilha 17, uti- 
lizando as tecias ; para avan^ar e - para 
recuar. Note que voce sempre podera sa- 
ber onde estd consultando as informa- 
foes localizadas a esquerda da tela (figu- 
ra 2): DRV/drive, DRS/setor relativo no 
disco, TRK/ trilha e TRS/setor relativo 
na trilha, dados em decimal e em hexa- 
decimal. 

Antes de passarmos aos utilitarios, 
uma dica . a linha 40 de ambos os progra- 
mas realiza a prote^ao da memoria aci- 
ma de BEEEH = 488 78D, onde ficarao 



armazenados a sub-rotina de leitura -es- 
crita (BEFOH-BEFCH) e o buffer para 
onde os setores lidos serao transferidos 
(255 bytes a partir de BFOOH). Esta e 
uma dica muito importante, pois permi- 
te-nos executar programas que necessi- 
tcm de prqtefao de uma area de memo- 
« que tenhaj710s que voltar ao 
DOS c chamar novamente o BASIC pa- 
ra responder ao Mem. usada? (as posi- 
foes 16561 e 16562 devem conter, na 
iormaLSB-MSB, o endereipo a partir do 
qual se deseja proteger a memoria, sen- 
do indispensavel executar logo apos um 
CLEAR n, para que o sistema redcfina a 
localizagao do espafo de armazenagem 
string ). 



UM DIRETORIO MAIS PRATICO 



0 programa que esta na listagem 1 rea- 
liza a listagem em ordem alfabetica do 
diretorio de um drive especificado, uti- 
izando a nossa sub-rotina na fun 9 ao de 
leitura. A essencia do programa esta 
contida nas linlias 200-240: um Iaco 
control ado pela varidvel SE percorre os 
setores de 3 a 1 8 da trilha 1 7, transferin- 
do-os, um de cada vez, para o buffer (va- 
riavcl BF$ , cujos comprimento e ende- 
re?o foram modificados na linha 150. 
colocando-a na area protegida de mem<5- 
ria); em seguida, um lago controlado pe- 
la varidvel J percorre as cinco entradas 
de cada setor e, caso se trate de um ar- 
quivo nao-protegido e nao-invisive! (pri- 
meiro byte igual a 10H = 16D), trails- » 






MICRO SIST EMAS l\|° 33 • NAO PERCA! 



- nn'TZ S d . ,M : CR0 SISTEMAS .Sts Mns.cion.il V.i. 
dimensfles ' de 16 f!suras 9 eom ^r»cas, a partir de suas 



Pf°9ramap3o em forma de menu ~ grande pedida para proara- 

info de t< j Klos os nfve 's. Este artigo mostra a importance das telas 
mterativas e algumas tdcnicas para a sua eiaboragao. 

frtr ~ E quem d L sse nue 6 dificil analisar balangos de empresas? S6 se 
for para quern nao tern um TRS-80 e o programa Andlisede Balancol 

GROSO - nue S nQ riOS d ° App,e ' um se nsacionai programa — o Ml LA- 
a P 6?ou S o d q o comando 6 S 8rar Pr ° 9ramaS a Parentemente perdidos 
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AL!:M DO BASIC, ASSEMBLER, DOS E OUTROS MISTGRIOS 



fere sen nome/extensao, localizados en- 
tre o 69 e 169 bytes em cada entrada, 
para um elemento da matriz string PRS, 
a qual, apos classificada (CMD “O”, li- 
nha 250), tera seus elementos impressos 
a razao de 32 por pagina de video, sob 
controle do operador. 



PARA IDENTIFICAR SEUS DISCOS 



O programa da listagem 2 demonstra 
o uso de nossa sub-rotina para ler um se- 
tor no disco e escreve-lo de volta. Apds 
devidamente modificado, possibilita ao 
usuario alterar os nomes e as datas de 
seus disquetes com vistas, por exemplo, 
a uma melhor catalogafao, com a vanta- 
gem adicional de poder colocar a data em 
qualquer formato, tal como 20ABR84, 
ou qualquer outra informa^So em seu 
lugar, desde que esta data nSo ultrapas- 
se oito caracteres. 

O programa interroga a quantidade 
de drivbs existente no sistema, orientan- 
do automaticamente o disquete a ser 
modificado para o drive 1 , se existirem 
dois ou mais drives (linhas 120-140). O 
setor lido agora e somente o setor 1 da 
trilha 17, que contbm, entre outras in- 
forma 96 es, o nome e a data do disquete 
nos bytes D0H-D7H e D 8 H-DFH, res- 
pectivamente. A leitura propriamente 
dita e a transference para o buffer sao 
feitas na linha 180, e o nome/data do 
disquete sao armazenados na string N$ 
(remanejada, na linha 70, para as 16 po- 
shes a partir de BFD0H — portanto, 
nas exatas posi^oes de nome/data do 
buffer), a qual, se desejado, sera modi- 
ficada com os novos nome e/ou data 
que serao armazenados em NS na linha- 
300. 

O detalhe mais interessante a consi- 
derar 6 a modificagao da sub-rotina para 
que ela possa escrever o setor de volta 
no disco (conforme vimos no inicio do 
artigo, as duas rotinas do DOS envolvi- 
das sSo as localizadas em 467 5H (le) e 
4600H (escreve), cujos parametros sao 
exatamente os mesmos e cujos endere- 
90 s diferem ape nas no LSB). Examinan- 
do a listagem fonte da sub-rotina, vemos 
que k instru 9 So CALL 4675H corres- 
pondem os codigos-objeto CD 75 46 
(aten 9 ao: LSB-MSB!), e que o hexadeci- 
mal 75 corresponde ao 119 byte da sub- 
rotina, ou seja, k posi 9 ao de memoria 
BEFAH, ji que a sub-rotina estd armaze- 
nada a partir de BEFOH. Em conseqiien- 
cia, para que a sub-rotina seja transfor- 
mada em uma de escrita, basta POKEar 
o decimal 0 na pos^ao BEFAH, confor- 
me a linha 300, chamar a sub-rotina e 
reverte-la em seguida k condi 9 §b de lei- 
tura, deixando-a em conduces de ser 
utilizada novamente (lembre-se: 117D 
= 75H). 



Listagem 1 



10 '#*****»*LISTA DIRET0R I0S EM ORDEM ALFABETICA******** 
SO '*K*Por Roberto QUITO de Sant 'Anna - CP 24039 - RJ**x 
30 ’x*************************************************** 
40 POKE 16561 , &HEESP0KE 16562, &HBE 
50 CLEAR 5000 s DEFINT A--ZsDIM PRSBt 90) s8FS="" 

60 Mi$="********#" « M2$ s:i STR ING$< 17 , > 

70 M3$="0IR£T0RI0 EM ORDEM ALFABETICA DO DRIVE ==>" 

00 M41-"TECLE < ENTER > PARA NOVA TELA OU <S> PARA SAl'R" 

90 ENTER > PARA NOVO DIRETOR 10 01J <S> PARA SAIR" 

100 M69>=" DIRETOR 105 EM ORDEM ALFABETICA" 

110 M7$“STR IN6$ < 63 , "*" ) 

120 FOR N---16656 TO -16644SREAD AsPOKE N, As NEXT 

130 DATA 17,1,17,1,0,0,33,0,191,205,117,70,201 

140 DEFUSR0=&HBEF0:l<=05N-VARPTR (BF3>) :Nl=N+isN2=NH l 

ISO POKE N, 255 SPOKE Nl,&HOOsROKE N2 r &HBF>CLS 

160 GOSUB 420 s PR INTO 530 , "QUAL 0 DRIVE. <0-3> > ?"; 

170 DR$=INKEY$:IF DR it”"" THEN 170 

180 0R»VAL(DRt) #IF DR<0 OR DR >3 THEN CLSsGOTO 160 

190 PR INT " " , DR s POKE &HBEF4 , DR 

200 FOR SE=3 TO 18spOKE &HBEF1 , SE s X=USR0<0) 

210 FOR ,J=6 TO 230 STEP 48 

220 IF ASC( MID<R<BF<E , J--5, 1 ) ) < >16 GOTO 240 

230 K=K+i »PR<KK >=MID<E (8F<S , J , 11 > 

240 NEXT J: NEXT SE 
250 CMD "0" r K r PR*<i) 

260 CL.S* PRINT Mi$,M3$,DR , Ml 91 SPRINT 

270 PRINT M2$ y "CONTEM" , K , "ARQUI VOS DE USUAR 10" pM2<& 

280 POKE 16916, 3:CLS: IND=INT<K/32>+l!MSG**M4t 
285 IF K/32=INT(K/32> THEN IND«IND-i 
290 FOR I = i TO INDsFlM=]l*32sC0M=FIM“31 sCLS 
300 IF K < =FIM THEN FIM=K :MSG4=M5<6 

310 PRINT5F0R II=C0M TO FIMsPRINT PR$<II>+" ", :NEXT 

320 IF FIM=K POKE T,6lsP0KE T+l,6i:P0KE T+2,62:G0T0 350 
330 GOSUB 380 8 IF ZS'< >"S" GOTO 350 

340 CLS 5MSG9>=M59> SPOKE 16916 , OSCLS SGOSUB 42fl sGOTO 360 
350 NEXT I 

360 GOSUG 430 s IF Z$="S" POKE 16916, OsCLSsEND 

370 POKE 16916, 0SG0T0 50 

380 PRINTS 905,MSG*:T=15408 

390 POKE T , 32 SPOKE T+l,32sP0KE T+2,32 

400 Z9>-INKEY9> s IF RETURN 

410 POKE T , 61 sPOKE T+l ,61 SPOKE T+2,62sG0T0 390 
420 PRINT M7$ s PR INT TAB < 17 ) ,M6S SPRINT M7$:RETURN 
430 PRINTS 905,MSG«sZ<t=INKEYSS IF Z$«"" THEN 430 
440 RETURN 



Detalhes sobre a Listagem 1 



• Linha 40 — protege memoria a partir de BEEEH; 

• Linha 120 — leitura e armazenamento da sub-rotina; 

• Linha 150 — remanejamento de BF$ para o buffer; 

• Linha 190 — coloca em BEF4H o numero do drive; 

• Linhas 200 a 240 — cone os setores de 3 a 18; transfere para o buffer; 
seleciona em cada setor arquivos de usudrio; transfere nome/ext para, 
matriz PRS; 

• Linha 250 — classifica PRS em ordem alfabbtica; 

• Linhas 290 a 350 - lista PRS com 32 arquivos por pdgina de video; 

r Linhas 380 a 440 - sub-rotinas para as diversas mensagens ao operador. 
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Bern, espero ter mostrado alguns ves- 
tigios da vida inteligente (e comol) que 
existe alem do BASIC. Dificil? Talvez, 
mas sempre temos a tendencia a consi- 
derar dificil tudo o que nao dominamos 
e, de qualquer modo, toda dificuldade 



encontrada sera regiamente recompen- 
sada pelos novos recursos de que passa- 
remos a dispor: velocidade, flexibilidade 
e realiza?ao pessoal. 0 que esta esperan- 
do? Tal como para a maioria da boas 
coisas da vida, o dificil 6 comefar... 



Detalhes sobre a Listagem 2 



• Linha 40 — 

• Linha 50 — 

• Linha 70 — 

• Linha 140 

• Linha 180 - 

• Linhas 210 

• Linhas 250 

• Linha 300 - 
9 Linha 310 - 



protege membria a partir de BEEEH; 
leitura e armazenamento da sub-rotina; 
remanejamento de N1 $ para o buffer ; 

~ coloca em BEF4H o numero do drive ; 

- leitura do setor e identifica^do do nome/data atuais; 
a 240 — entrada e formata^ao do novo nome; 

a 280 — entrada e formata^ao da nova data; 

- redefinifao de N1 $ e mudanfa da sub-rotina para escrever; 

- escreve o setor e mudanfa da sub-rotina para ler. 



Listagem 2 



de: diskettes trs dos/dos 500 *#*#* 

^*»*Por Roberto QUITO de Sant ' Anna - CP 24039 - RJ*** 

rnD E M iA ^h? HE:ESP0KE *4562,*HBE«CLEAR 200 
FOR N=~16656 TO -16644 s READ A: POKE N , A ! NEXT 
DEFIJSR — &HBEFQ 8 N1 s N1 =VARP TR ( Ni 1 ) 

POKE N1 , 16s POKE Nl + 1 , &H00:P0KE Nl+2 &HBF 
DATA 1 7 r i , 1 7 , 1 , 0 , 0 , 33 r 0 , 1 9 1 , 205 r 1 1 7 , 70 , 201. 

Mi <&="**********#« : M2*-STRING$< 62,"-") 

) M3<£-"MUDA NOME/DATA DISKETTES TRSDOS/DOS 500" 

) CLSsPRINT Ml PR INT M2*:P0KE 16916 P 

) PRINTS 205 , "QIJANTOS DRIVES TEM 0 SEU SISTEMA 
) INPUT DR : IF' DR - 1 THEN DR=0 ELSE DR = 1 ' 

) POKE &HBEF4,DR 

) CLS:PRINT3 208 , "COLOQIJE 0 DISKETTE NO DRIVE"-DR 

! v^rSrvf 1 l' /TECLE <ENTER> PARA MUDAR OU <S> PARA SAIR" 

I Y*=INKEY® : IF Yf>-"" THEN 170 ELSE IF Y*="S" THEN 320 
I X=USR CO) :N2$=LEFT$(N1$,8> * D2S-R I0HTIB <N1$ 8) 

I CLS SPRINTS 205, "0 NOME ATUAL E ” .««> ".H?% 

I PRINTS 333, "A DATA ATUAL E' -««> ".02$’ 
t PRINTS 512, "ENTRE NOVO NOME OU < ENTER > PARA MANTER >". 
i LINE INPUT NSsiF NS="" N$=N2$ sGOTO 250 
l IF LEN ( N9> > < 8 THEN N$=N$+STR INGf> < 8-LEN < NS ) " ") 

1 IF LEN < NS ) >8 THEN NS=LEFTS(NJ ,8) 

i PRINTS 640 , "ENTRE NOVA DATA OU < ENTER > PARA MANTFR 
LINE INPUT Dtts IF D%~"" THEN D*==D2®:GOTO 290 
IF LEN < D$ ) < 8 THEN DS=DS+STR 1NGS> ( 8-L..EN ( D$ ) " ") 

IF LEN(DS) >8 THEN D*=LEFTS <D$ , 8) 

CLS: PRINTS 592 , "GR AVANDO " ? N* ; "< >" { D$ 

N*=NS+D* sMIDSINliE, 1 , 16>=N$:P0KE &HBEFA O 
X=USR(0) SPOKE &H8EFA ,117 : FOR N=i TO io6o:NFXT 
CLS s PR I NTS 843 , 

I PRINT " < ENTER > PARA NOVO DISKETTE OU <S> PARA SAIR" 

) Z<S«.[NKEY*slF 2%~"" THEN 340 

) IF 7*="S" POKE 16916, Oi CLS : END ELSE GOTO 150 - 



Roberto Quito de Sant'Anna 6 engenheiro de teiecomunicagoes, formado pe/o /nstituto Militar 
rilJi, ? 9 / nh ? ns J P f^t SS f r da Mde'™ de Informatics da Academia Militar das Agulhas Negras, 
1982 6 tar ”Mm colaborador da MICRO-MAXI Computadores e Sistemas como 
anal is ta de sistemas. 



A solupjio !6qica 



TODA A LINHA 
DE MICROS E 

minicomputadores 



A informae^o nas pontes dos sous dodos 



Gerenciador de Automa^ao I ' “| 

banco de dados de escritorios .ledr 




Stetemn operations*: 
MS-OOS (IBM- PC) CP/ 
M CP/M-86 CROMIX 
COOS MP/M MP/M-86 

□ Cursor enderec*vel 
para o uso de funptes 
fullscreen. 



Requerimentos do 

Ststema: 

□ (Mtcroproceasedoree 8060, 
8085, Z80, 8086, 8088) 

□ 64K p / CP/M; 128K p / CP/ 
M-86 e MS-DOS; 56K p / 
Apple H 

□ 2 Diskette c / m(nkno de 
126K cada 

□ Terminal c/80 colunas e 
cursor endelecdvel 

□ knpressore com no mlnl- 
mo 80 colunas. 
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COMPUTADORES LTDA. 



CENTRO DE MICROS 

• AVALIAQAO DE CARGA 

• PLANEJAMENTO 

• DIMENSION AMENTO 

• IMPLANTACAO DE 
EQUIPAMENTOS 

• PROGRAMAS 

• TREINAMENTO 

Implantapao racionalizada 
de micro-centros para 

• Comercio 

• Industria 

• Profis. Liberals 
EQUIPAMENTOS 

• Microdigital 

• Prologica 

• Unitron. CCE. etc.. 
SOFTWARE 

• Programas especiais 
personaliz. de softer 

• Pacotes p/ advogados 
Despachamos Via Varig 

AMPLO FINANCI AMENTO 

TEL.: 64-0468 
Alameda Lorena, n° 1310 
CEP 01424 - SSo Paulo 
“*ESTACI ON AMENTO PARA CLIENTES 1 
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Curso de 
Assembler - XVI 



V^omo jd pudemos observar durante o curso, o microprocessador 
Z80 tem a capacidade de realizar operates com 16 bits. Nesta lisao, va- 
mos conhecer o grupo de aritmdtica de 16 bits, o qual se refere as ope- 
rafoes aritmeticas que podem ser realizadas com pares de registradores 
(por exemplo, HL). Vamos conhecer estas instnitjoes, 

1 - Adigao de registradores de 16 bits 
Formato: ADD HL, ss 

Operagao: Efetua uma operacao de adigao entre o conteudo do par 

de registradores HL e outro par de registradores de 16 
bits. 

Cddigo Objeto : 

ADD HL , ss 

— i 1 1 1 — i—i 1 — 

OOsslOOl 

i t i i i — i i 

(para o par ss, veja figure 1) 
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SP 



Figura 1 
Exemplo: 



ADD HL,SP 



0 0 1 1 1 0 0 1 



Descrigao: O conteudo do par de registradores ss (qualquer dos pares 
de registradores: BC, DE, HL ou SP) e somado ao conteddo 
do par de registradores HL e o resultado e guardado em HL. 



ADD HL , ss HL ** HL + ss 

Ciclos de mdquina (M) : 3 
States (T): 11(4.4,3) 

Flags afexadas: S - nao afetada; 

Z - nao afetada; 

H - setada se ocorre vai-um do bit 1 1 ; senffo 6 ressetada; 
P/V — nao afetada; 

N — ressetada; 

C — setada se ocorre vai-um do bit 15; senao e ressetada. 

Um exemplo: se o par de registradores HL contem o inteiro 4242H 
e o par de registradores DE contem 1111H, apos a execugao de ADD 
HL, DE, o conteudo do par de registradores HL sera 5353H. 

2 - Adigao de registradores de 16 bits com Carey 
Formato: ADC HL, ss 

Operagao: Efetua uma operagao de adigao entre: o conteudo do 

par de registradores HL, o outio par de registradores de 
16 bits e o conteudo da flag Carry. 

Cddigo Objeto: 



ADC HL, ss 

1 1 1 1 1 i 1 

1110 110 1 
— I — I — I — I — I — I — I — 
OlsslOlO 
1 — i 1 1 i 1 i 

( P ara o par ss, veja figura 1) 

Exemplo: 

ADC HL , B-E 

1 1 1 I i 1 1 

11101101 ►ED 

1 — i 1 1 1 1 — | 

0 10 110 10 ►SA 
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DescrifSo: O conteudo do registradores ss (qualquer dos pares 
* repitndores: ? E ’ HL 00 SP) e somado comaZ 

Carry e com o conteudo do par de registradores HL' o resul- 
tado e guardado no par de registradores HL 



ADC H L , s s 

Cidos de mdquina (Ml: 4 
States (T): 15(4,4,4,3) 



HL + s s + CY 



(para o par 

Exemplo; 



ss » veja flgura 1 ) 



SBC HL , D E 

l I 1 1 r — I — 

1110 110 1 
— I — I — I — , — I — 
01010 010 



Descngdo. O conteudo do par de registradores ss (qualquer dos pares 
de registradores: BC, DE,1 hl ou SP) e a flagCarrylU sX 
trafdos do conteudo do par de registiadores HL,°^ o resul- 
ts 0 e guardado no pax de registradores HL. 



SBC HL, 



HL -ss -C Y 



Cidos de mdquina (Ml • 4 
States (T): 15(4,4,4,3) 

Flags afetadas: S - setada se o resultado e negative; senao £ ressetada; 

Z setada se o resultado e zero; senao e ressetada ; 
resseteda- a 56 000116 Um em P r ® stimo do b *t 12; senao e 

setad^ S ° ° COm! Um over ^ OW; 561150 e ressetada; 

Urn exempio: 7e TS^AST^SSSSSSm. i 999m l 

p execu^ao ae aBC HL, DE, o conteiido de HL sera 888 7H. 

“ deX ' d °' com P” 1e registradores 

ADD IY, rr 

Vpvafao: Efetua uma operate de adicao entre o conteiido do re- 

° X ° U “> cora “ P «**£&■ 

Cddigo Obfeto: 



AO 0 IX, pp 
r ~ " r " " 1 1 r — I 1 1 — 

11011101 

— t- — f 1 — I 1 1 — 

OOrrl '0 01 



ADD IY.rr 

11111101 

> -" « I 1 *■ 1 1— 

OOrrIOOl 



PAr c „+~ II ZI r ~ x 1 > sermo e ressetada; 

J7 V ~ » ocorre um overflow: senffo e ressetada 1 

— ressetada; ’ 

Ti . C - se ocorre vai-um do bit 15- sen£o e restart a 

U m exemplo: se o jaar de registradores BC contem 2222H o par de 

SKS&FSi 1 conte m,5437lf e o Carry esta setado; ap6s a execudo 
de ADC HL, BC, o conteudo de HL ser i 76SA H. P 530 

* 1« bite com Carry 

OpenfSo: Efetua uma operesio de eubtta?ao entre : o conteudo do 

f ? L ’/ 7 ° °^ tro pai de registradores de 
C6di go Objeto: htSe ° C ° nteUd0 ^ ** Carr y- 

SBC HL,ss 

i l — i i r - [ i — 

11101101 
>’ t t 1 4—1 1— 

OlssOOlO 



Exemplo: 



c 6 digo pp 


r r 


Ob 


BC 


BC 


01 


DE 


DE 


10 


IX 


I Y 


1 1 


SP 


SP 


ADD 


IX , BC 




’10 1 
4- — 1 1 — 


1 1 1 0 * 
4 1 1 1- 





00001 001 



DescrigSo : 



?°" t ®“ d ° d0 par d6 registradores IX ou IY, e o resultado 
e guardado no par de registrador indexador. » 



4?1^GARANTA 
Wr SUA MS 

TODO MES ! 

Se voce deseja assinar MICRO SISTEMAS, preencha o 
cupom abaixo (ou uma xerox, caso voc§ nao aueira 
cortar a revista): 

nome __ 

empresa 

profissSo/cargn 

enderepo para remessa 

cidade C ep estado 

Assinatura anual 

□ Micro Sistemas nr . n 

O Informdtica & Administracdo ... ’ r r «; 70 000 00 

□ Micro Sistemas + lnform<Stica & 5 20.000,00 

— Administrated Cr$ 36 QQ0 nn 

Preencha um cheque nominal 3 ATI Editors Ltda e envie 

Av. Pres i den te Wilson, 165/grupo* 1210. Centro, Rio de 
Janeiro, R J , CEP 20030- tels.: (021 ) 262-5259 e 262-5208. 
nti?r Wa P ias ', 153 ' Ja rdim Paulista, Sab Paulo, SP, CEP 
l5 l <01 - 1) 853-7758, 881-5668 e 853-3800 
Seu recibo ser$ enviado pelo correio. 
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ADD IX, pp 

ADD IY.rr 



IX — IX + pp 
I y -« — IY + rr 



Ciclos de mdquina (M): 4 
States (T): 15(4,4,4,3) 

Flags afetadas: S - nao afetada; 

Z — nSo afetada; 

H — setada se ocorre vai-um do bit 1 1 ; senao e ressetada; 
P/V - nao afetada; t 

N — ressetada; 

C - setada se ocorre vai-um do bit 15; senao e ressetada. 
Um exemplo: se o conteudo do registrador indexador IY e 333H e o 
conteudo do pax de registradores BC e 555H, apos a execugao de ADD 
IY, BC, o conteudo de IY sera 888H. 

5 — Incrementa par de registradores 
Formato: INC ss 

Operagao: Incrementa o conteudo do par de registradores especificado. 
Cddigo Objeto: 



Um exemplo: se o conteudo do registrador IX e 3300H, apos a exe-; 
cugao de INC IX, o conteudo do registrador IX sera 3301H. 

7 - Decrementa par de registradores 

Formato: DEC ss ' 

Operagao: Decrementa o conteudo do par de registradores especificado; 
Cddigo Objeto ; 

DECss 



OOsslOI 1 



(para o par ss, veja figura 1) 



Exemplo: 



DEC HL 



INC ss 



00101011 



OOssOOl 1 



(para o par ss, veja figura 1) 



Exemplo: 



INC HL 



00100011 



Descrigdo: O conteudo do par de registradores ss (qualquer dos pares 
de registradores: BC, DE, HL ou SP) e incrementado. 



INC ss ss< sstl 

Ciclos de mdquina (M): 1 
Flags afetadas: Nenhuma. 

Um exemplo: se o par de registradores HL contem 1000H, apos a 
execugao de INC HL, o par de registradores HL contcra 1001H. 

6 — Incrementa registrador indexador 

Formato: INC IX 
INC IY 

Operagao: Incrementa o conteudo do registrador indexador IX ou IY. 
Cddigo Objeto: 



Descrigdo: O conteudo do par de registradores ss (aualquer dos pa- 

res de registradores: BC, DE, HL ou SP)e decrementado. 



DEC s s 



s s - 1 



Ciclos de mdquina (M) : 1 j 

States (T): 6 \ 

Flags afetadas: Nenhuma. 

Um exemplo: se o conteudo do par de registradores HL e 1001H, 
apos a execugao de DEC HL. o conteudo de HL sera 1000H. 

8 - Decrementa regisfrador indexador 

Formato: DEC IX 
DEC IY 

Op eragao : Decrementa o conteddo do registrador indexador IX ou IY. 
Cddigo Objeto : \ 

DEC IX 



110 1110 1 



0 0101011 



DEC I Y 



1111110 1 

— I 1 1 1 1 1 1 — 

0010 1011 



INC IX 



110 1110 1 

— I 1 1 1 t 1 1 — 

0010001 1 



Descrigdo: O conteudo do registrador IX ou IY e ‘ decrementado,'] 



DEC IX 



DEC IY 



IX- 1 



I Y - 1 



HI.- 



INC IY 



1111110 1 

— I 1 1 1 1 1 1 — 

00100011 



Descrigdo: O conteudo do registrador IX ou IY e incrementado. 



INC IX 



IX + 1 



Ciclos de mdquina (M) : 2 .! 

States (T): 10(4,6) ] 

Flags afetadas: Nenhuma. ^ 1 

Um exemplo: se o conteudo do registrador I Y e 7649H, apos a exe-; 
cu$aq de DEC IY, o conteudo do registrador IY sera 7648H. 

Estamos chegando ao fim das instrugocs do microprocessador Z80,i 
Apos completarmos a descrigao de todas as instrugoes dispom'veis, serao, 
divulgadas algumas dicas para a elabora^ao de programas em Assembler. 
Dai para frente, o rcsto e com voce. Ate a proxima ligao. 



INC I Y 

Ciclos de mdquina (M): 2 
States (T): 10(4,6) 

Flags afetadas: Nenhuma. 



Amaury Correa de Atmeida Moraes Junior d formado pelo curso de\ 
Andlise de Sis te mas da FASP, ten do feito di versos cursos de aperfeigoa - 1 
mento nas Areas de Eletrdnica Digital e Microprocessadores, e atualmerh | 
te trabalha na Area de microcomputadores para o City bank. \ 
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NOVO CP 300 PROLOGICA. 



OS 

Q. 




0 pequeno 
grande micro. 



Compativel com 
programas em fita 
cassete ou em disco. 



Pode ser ligado ao seiraparelho de TV, da 
mesma forma que no terminal de video 
de uma grande empresa. 

Com o CP 300 voce pode 
fazer conexoes telefonicas 
j^para coleta de dados, 

e ainda dispor de todos 
i os programas existentes 
irmite_ para o CP 500 ou o 
e°£ a a° TRS-80 americano. E o que e melhor: 
voce estara apto a operar qualquer 
outro sistema de microcomputador. 

Nenhum outro microcomputador pessoal 
na sua faixa tern tantas possibilidades de 
expansao ou desempenho igual. 

CP 300 Prologica. 

Osoutrosnao BBB pROLOGK 
fazem o que ele faz, microcomputad 

pelo prego que ■■■ 

ele cobra. A v Eng Luis Carlos Bernni. 11 



Pode ser ligado 
a urn televisor comum 
ou a urn sofisticado 
terminal de video. 



Pode ser 
acoplado a uma 
impressora 



^m'Mjrr'T V ilFPTn 1 

1 I ’^ 0 ***^ 

■ L W zAWS 

• DF -Bras !:a 226-1523 225-4534 * [S V i ve r a 

- 212-9075 - Uberlandia - 235-1099 • PA-Belem - 228-0011 • PR-Cascavel - 23-1538° Curi- 
t'ba ■ 224-5616 - 224-3422 - Fozdo Iguagu - 73 : 3734 - Londrina - 23-0065 ♦ PE-Recife - 221-0142* Pl-Teresina 
222-0186* RJ-Campos - 22-3714 - Rio de Janeiro - 264-5797 - 253-3395 - 252-2050 • RN-Natal - 222-3212 • RS-Caxias do 
Sul - 221-3516 - Pelotas - 22-9918 - Porto Alegre - 22-4800 - 24-0311 - Santa Rosa - 512-1399 • RO-Porto Velho - 221-2656 *SP 
Barretos - 22-6411 - Campinas - 2-4483 - Jundiai - 434-0222 - Marilia - 33-5099 - Moqi das Cruzes - 469-6640 - Piracicaba - 33-1470 - Ribeirao 
Preto - 625-5926 - 635- 1 1 95 - Sao Joaquim da Barra - 728-2472 - Sao Jose dos Campos - 22-731 1 - 22-4740 - Sao Jose do Rio Preto - 32-2842 - Santos - 33-2230 
Sorocaba - 33-7794 • SC-Blumenau - 22-6277 - Chapeco - 22-0001 - Criciuma - 33-2604 - Florianopolis - 22-9622 - Joinvile - 33-7520 • SE-Aracaju - 224-1310 



Solicite 
demonstrapao 
nos principals 
magazines. 








(Preqo sujeiio a alteraqao). Filiada a ABICOMP 




Diskette _ 



Alta resolucao 



64 



Interface de impressora 



Teclado profissional 



A Microdigital apresenta 
o novo TK2000 color. 



Que tal um micro de alta performance , que traz as principals caracterfsticas 
dos equipamentos mais sofisticados e que nao exige de voce um grande 
investimento inicial?E que tal um micro que cresce de acordo com as suas 
necessidades? Sao estas as vantagens que vao fazer do novfssimo 
TK 2000 Color um dos maiores sucessos no setor. 

Veja: e/e tern 64K de memoria /?AM e I6K de memoria ROM , teclado profissional 
tipo maquina de escrever, recebe diskette e impressora com interface ja contido, 
trabalha em cores, oferece alta resolugao grafica e som. 

Peqa uma demonstragao. Nunca tanto foi Ihe oferecido por tao pouco. 
Grande quantidade de software dispomvel (entre eles: diversos aplicativos 
comerciais e jogos a cores de alta resoluqa o grafica). 




EBe tem tudo que um 
micro de ve ter.Menos o preco. 




Caixa Postal 54088 CEP 01000 - Sao Paulo - SP - Telex N*(011) 37.008 - Mide BR 
A vendor nas boas casas do ramo, lojas especializadas de fotovideo-som e grandes magazines. 
Se voce nao encontrar este equipamento no sua cidade ligue para (Oil ) 800-255-8583. 






